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only  in  the  source  of  the  data  for  one  or  more  of  the  inde¬ 
pendent  variables.  The  comparisons  indicated  there  may  be  few 
differences  between  the  data  supplied  in  the  FTC  and  Census 
data  bases.  However,  comparisons  of  the  coefficients  between 
regression  runs  with  Census  data  and  regression  runs  with  some 
FTC  data  indicate  economic  interpretation  of  the  results  could 
be  ambiguous.  Specifically,  the  Capital-Output  variable  com¬ 
puted  from  the  FTC  data  was  very  seldom  significant  and  often 
times  possessed  the  wrong  sign.  The  use  of  an  FTC  Price-Cost- 
Margin  caused  a  similar  problem  with  the  Capital -Out put  ratio 
computed  from  all  Census  data. 

The  results  of  the  aforementioned  F  test  comparisons 
suggested  that  pooling  of  the  data  was  possible.  Doing  so 
resulted  in  very  robust  coefficients  for  the  regressions  using 
a  Census  derived  Price-Cost-Margin  but  not  for  those  using  an 
FTC  derived  Price-Cost-Margin,  The  fit  of  the  model  to  the 
data  in  these  regressions  as  expressed  in  terms  of  the  adjusted 
P  square  was  as  high  as  0,43  when  using  a  Cost  Advantage 
efficiency  variable  in  the  model,  ^ 
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The  study  addresses  the  question  of  how  the  recently  released 
FTC  Line  of  Business  data  can  improve  or  extend  the  results  of  the 
statistical  and/or  economic  results  obtained  with  the  structure-profit 
model  using  Census  data  alone. 

A  variation  of  the  generalized  P  test  with  interaction  terms  was 
used  to  compare  model  formulations  which  differed  only  in  the 
source  of  the  data  for  one  or  more  of  the  independent  variables.  The 
comparisons  indicated  there  may  be  few  differences  between  the  data 
supplied  in  the  FTC  and  Census  data  bases.  However,  comparisons  of 
the  coefficients  between  regressions  run  with  Census  data  and 
regressions  run  with  some  FTC  data  indicate  economic  interpretation 
of  the  results  could  be  ambiguous.  Specifically,  the  Capital-Output 
variable  computed  from  the  FTC  data  was  very  seldom  significant 
and  often  times  possessed  the  wrong  sign.  The  use  of  an  FTC 
Price-Cost-Margin  caused  a  similar  problem  with  the  Capital-Output 
ratio  computed  from  all  Census  data. 

The  results  of  the  aforementioned  F  test  comparisons  suggested 
that  pooling  of  the  data  was  possible.  Doing  so  resulted  in  very 
robust  coefficients  for  the  regressions  using  a  Census  derived 
Price-Cost-Margin  but  not  for  those  using  an  FTC  derived 
Price-Cost-Margin.  The  fit  of  the  model  to  the  data  in  these  regres¬ 
sions  as  expressed  in  terms  of  the  adjusted  R  square  was  as  high  as 
0.43  when  using  a  Cost  Advantage  efficiency  variable  in  the  model. 
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PROFITABILITY  ANALYSIS  WITH  FTC 
LINE  OF  BUSINESS  AND  CENSUS 
ESTABLISHMENT  DATA:  AN 
EVALUATION  OF  DATA  BASES 


I.  Overview 

Research  Problem 

General  Issue/BacKeround. 

The  Need 

The  industrial  organization  economist  concentrates  much  of  his 
thinking  and  research  in  three  basic  areas:  the  structure,  behavior, 
and  performance  of  markets  (32:3).  Statistical  emalysis  is  the  basic 
tool  the  economist  uses  to  further  his  understanding  of  these  areas. 
But  the  quality  of  a  statistical  analysis  is  ultimately  contingent  upon 
the  quality  of  the  data  upon  which  it  is  based.  This  thesis  will  look 
at  a  new  set  of  Line  of  Business  data  which  has  only  recently  been 
made  available  to  the  Public  by  the  Federal  Trade  Commission  (FTC). 

The  collection  of  this  data,  as  first  proposed  in  1970,  was  in 
response  to  a  growing  concern  that  as  United  States  (U  S.) 
corporations  became  more  diversified,  the  ability  to  capture  and 
analyze  the  structure,  behavior,  and  performance  of  many  markets 


was  becoming  suspect  (28:270).  This  situation  creates  a  great 
problem  for  those  governmental  organizations,  specifically  the  FTC 
and  the  Department  of  Justice's  Antitrust  Division  (32:423),  whose 
purpose  is  to  encourage  competition  in  the  economy  through  the 
enforcement  of  the  Sherman  Act  of  1890,  the  Clayton  Act  of  1914,  and 
others  (32:421). 

Most  of  the  groundwork  for  the  data  collection  effort  was 
accomplished  in  1973.  The  General  Accounting  Office  (GAO)  received 
the  FTC  proposal  in  March  of  1973.  The  GAO's  task  was  to  ensure 
that  the  data  the  FTC  was  seeking  was  not  already  available  through 
other  sources,  (e.g.  the  Internal  Revenue  Service  or  the  Bureau  of 
the  Census),  and  that  the  proposed  collection  "imposed  the  minimum 
burden"  (16:2)  on  the  participants  consistent  with  the  needs  of  the 
FTC.  The  GAO  approved  the  FTC  plan  in  May  of  1973.  The  first  set  of 
forms  to  be  filed  by  the  individual  businesses,  covering  their  1973 
business  activity,  were  sent  out  soon  after  (17:1-2). 

Lezal  ChaUennes. 

The  program  was  not  well  received  by  the  business  community. 
Of  the  345  corporations  to  which  the  forms  were  sent,  120  of  them 
refused  to  comply.  The  FTC  took  legal  action  to  enforce  compliance. 
In  the  meantime  the  FTC  began  preparation  of  the  1974  report  form. 
Many  suggestions  made  by  corporations  participating  in  the  1973 
survey  were  incorporated  in  the  new  format.  Additional  changes 
were  made  as  the  result  of  lessons  learned  by  the  commission  itself. 
The  new  program  was  approved  by  the  GAO  in  August  of  1975.  This 
time  the  response  of  440  companies  was  solicited  but  170  of  them 


time  the  response  of  440  companies  was  solicited  but  170  of  them 
refused  to  comply.  The  FTC  dropped  its  legal  actions  against  the  1973 
noncompliants  in  April  of  1984  in  order  to  concentrate  on  the  1974 
group  (17:3)  given  the  richer  content  of  that  years  survey. 

Many  of  the  noncompliant  companies  filed  a  suit  against  the  FTC 
in  1976  to  seek  the  curtailment  of  the  data  collection.  The  principle 
arguments  of  these  companies  against  the  FTC  consisted  of  the 
following  (16:367-372): 

1.  There  was  little  evidence  to  support  the  FTC's 
contention  that  there  was  a  definable 
relationship  between  the  structure  of  an 
industry  and  the  tendency  for  the  leading  firms 
of  the  industry  to  raise  prices  above  cost 
through  either  tacit  or  expressed  collusion. 

2.  Line  of  Business  cat^ories  did  not  describe 
economically  meaningful  markets  (see  Shepherd 
[29:175]  for  a  discussion  of  economic 

markets)  which  covild  be  used  in  ascertaining  the 
infringement  of  antitrust  laws. 

3.  Because  different  companies  used  different 
accounting  methods,  meaningful  comparisons 
could  not  be  made. 

4.  Accounting  data  is  insufficient  by  itself  to  allow 
for  "meaningful  economic  analysis  and  inference” 

(16:372). 
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5.  Contamination  of  "Sales"  data  (i.e,  all  revenues 
accruing  to  the  activities  of  a  particular  line  of 
business  within  a  company  [14:257])  by 
revenues  actually  belonging  to  another  line  of 
business  would  be  as  high  as  between  33S  and 
60S  of  the  total  reported. 

6.  The  burden  of  cost  for  data  collection  to  be 
borne  by  the  participating  corporations  would  be 
excessive. 

All  of  these  issues  were  addressed  in  a  Bureau  of  Economics  Staff 
Memorandum  (16:358).  While  the  Bureau  agreed  to  the  possibility  of 
the  first  assertion,  it  stated  the  determination  of  nonexistence  of 
such  relationships  would  in  itself  prove  useful.  To  the  second  charge, 
the  Bureau  responded  that  even  though  "many  of  the  industry 
categories  are  broader  than  might  be  adopted  in  a  specific  antitrust 
case"  (16.368)  the  LOB  data  could  aid  in  the  search  for  potential 
violators  of  the  Sherman  Act. 

The  bureau's  response  to  the  third  charge  was  that  even  thoLigh 
different  accounting  procedures  would  be  used,  the  systematic  or 
unsystematic  (random)  proliferation  of  accounting  procedures  could 
be  accounted  for  statistically.  Random  errors  would  tend  to  cancel 
each  other  out  by  the  law  of  large  numbers  (see  Mendenhall  [18:277] 
for  an  indepth  discussion  of  this  property).  Systematic  differences 
coxild  be  detected  and  accounted  for  by  using  the  techniques  of 
statistical  analysis  (16:370). 


The  bureau  addressed  the  fourth  charge  by  citing  the  obvious 
fact  that  it  is  accounting  data  upon  which  much  of  the  decision 
making  by  management  in  corporations  is  based.  Analysis  of  this 
data  could  possibly  help  to  reveal  the  impact  of  industry  structure 
on  the  decision  making  process. 

The  issue  of  sales  contamination,  though  not  addressed  until 
after  the  data  was  collected,  was  settled  when  analysis  revealed  an 
average  sales  contamination  of  less  than  5.7  percent  (16:370). 

The  FTC  addressed  the  question  of  cost  burden  by  recognizing 
that  the  cost  of  compliance  would  "rise  more  than  linearly  with 
greater  diversity  due  to  increased  complexity  and  decentralization  of 
record-keeping  in  larger  companies*  (16:366).  This  seems  to  have 
been  borne  out  by  the  cost  figures  issued  by  the  Du  Pont  company 
which  had  21  LOBs.  Their  estimate,  the  highest  in  the  study,  was 
that  between  1.2  and  1.8  million  dollars  would  be  required  the  first 
year,  with  annual  expenses  rvinning  several  hundreds  of  thousands 
of  dollars  (16:364).  By  comparison,  the  average  cost  for  all  reporting 
companies  was  about  24,000  dollars. 

To  help  lessen  the  costs  of  reporting,  the  FTC  allowed  companies 
a  great  deal  of  latitude  in  identifying  their  lines  of  business,  shifting 
the  emphasis  of  the  reporting  from  an  establishment  orientation  to 
one  of  product  lines  (5:119).  A  given  company  could  combine 
"establishments,  product  centers,  or  other  organizational  units* 
(16:348)  in  a  manner  consistent  with  providing  the  most  detailed 
information  at  the  lowest  cost. 


Given  these  arguments  and  explanations,  the  court  decided  in 
favor  of  the  FTC  in  1978  (14:38).  As  a  result,  1974  Line  of  Business 


data  was  submitted  by  all  of  the  plaintiffs  by  December  of  1978 
(14:38). 

Data  CoUected. 

Data  was  collected  on  individual  Lines  of  Business  (LOBs) 
associated  with  a  given  company  as  mentioned  above. 

For  1973,  the  FTC  established  coded  LOB  categories  in  accordance 
with  3  digit  standard  industrial  classification  (SIC)  codes  as  used  in 
the  Census  of  Manufacturers.  When  filling  out  an  LOB  report  for  a 
specific  LOB  code,  a  company  had  to  ensure  that  at  least  85f  of  the 
activity  it  was  describing  could  in  fact  be  attributed  to  that  FTC  code 
(16:305).  If  this  criteria  could  not  be  achieved  then  further 
segmentation  of  the  activity  into  additional  LOBs  would  have  to  take 
place. 

SIC  codes  first  appeared  in  1939  and  are  today  maintained  by  the 
Bureau  of  the  Budget  (22:119).  The  codes  representing  the 
manufacturing  sector  of  the  economy  were  based  on  a  system 
already  in  use  by  the  Census  Bureau.  However,  revisions  to  many  of 
the  codes  in  the  years  1957  and  1972  each  rendered  comparisons  to 
the  data  in  prior  Census  years  virtually  impossible  (6;X).  The 
current  system  divides  the  US  economy  into  99  Major  groups.  Each 
major  group  is  represented  by  a  two  digit  code.  For  example,  code 
20  encompasses  all  Food  and  kindred  products  while  code  75 
encompasses  automotive  repair,  services,  and  garages.  Three  digit 
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codes  identify  industry  groupings  which  ere  roughly  similar  to  IRS 
"minor"  industries  (39:49)  while  four  digit  codes  identify  individual 
industries  (22:116).  The  Census  Bureau  has  added  additional  digits  to 
the  code  corresponding  to  additional  degrees  of  refinement  of  the 
data.  For  example,  the  Census  Bureau  has  established  approximately 
13,000  seven  digit  codes  which  each  identify  an  individual  product. 
Each  series  of  codes  can  be  used  in  different  types  of  investigations. 
Shepherd,  for  example,  argues  that  the  Census  five  digit  codes 
which  correspond  to  product  classes  come  closest  to  fitting  the 
average  scope  of  markets  (33:199). 

By  1974,  the  commission  had  segmented  many  of  1973's  LOBs  into 
smaller  LOBs  corresponding  to  4  digit  and  even  in  some  cases  5  digit 
SIC  code  equivalents.  This  resulted  in  275  LOBs  of  which  144  closely 
approximated  a  single  four-digit  SIC  code. 

The  FTC  sought  data  which  would  provide  adequate  coverage  for 
most  Census  industrial  categories  (27:34).  Adequate  coverage  was 
attained  by  adherence  to  the  following  criteria  (16:340-341): 

1.  All  corporations  which  primarily  engaged  in 
manufacturing  and  which  possessed  at  least 

)  one  billion  dollars  in  assets  would  be  included. 

2.  The  top  250  Fortune  500  companies  including 
those  described  by  (2)  above  would  be  included. 

!  3.  At  least  five  companies  had  to  report  in  each 

category. 
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4.  At  least  201  of  total  national  sales  for  each 
category  had  to  be  represented  by  the  sample. 

The  FTC  geared  its  information  gathering  to  address  several  basic 
relationships  of  interest  to  students  of  industrial  organization.  For 
example,  market  conduct  and  strategy  can  be  inferred  from  Media 
Advertising  expenditures  (25:26)  and  from  other  selling  expenses 
which  have  traditionally  never  been  reported.  The  dynamism  of  the 
economy  can  be  anticipated  by  moneys  spent  on  research  and 
development.  Measures  of  capital  intensity  (26:54)  and  cash  flows 
(26:59)  can  be  inferred  from  asset  data  and  depreciation  allowances 
respectively.  And  finally  the  impact  of  differing  reported  accounting 
practices  on  performance  measures  can  be  assessed  (16:338). 

Ravenscraft  said  the  following  of  the  results  of  the  FTC  effort: 
When  combined  with  Census  and  input-output  data,  the  FTC 
line  of  business  data  allow  the  estimation  of  a 
structure-performance  equation  of  unprecedented  richness 
(27.22). 

The  improvement  over  previously  available  Census  data  is 
thought  to  be  twofold.  First,  because  the  level  of  aggregation  is  at 
the  LOB  level,  the  shortcomings  of  second  product  contamination 
which  is  inherent  in  the  Census's  primary  industry  data  can  be 
greatly  reduced.  Second,  a  few  types  of  information  are  not 
gathered  by  the  Census  or  at  least  not  at  the  level  of  detail  available 
in  the  FTC  data.  One  such  item  is  the  selling  expenses  incurred  by  a 
firm  which  are  not  related  to  advertising  (14:272).  The  upkeep  of  a 


MlMforca  would  bo  on«  such  axponse.  It  hos  boon  argued  that 
these  "Other  Selling  Expenses"  may  be  as  great  in  magnitude  for 
some  companies  as  "Media  Advertising  Expenses"  (16:338). 


Why  Aggregated  DaU? 

FTC  confidentiality  rules  specify  "no  data  may  be  published  that 
would  result  in  the  disclosure  of  individual  company  data"  (14:40). 
Hence  aggregated  data  for  individual  lines  of  business  was  published 
only  if  four  or  more  firms  in  that  line  were  included  in  the  survey. 

The  FTC  believes  the  aggregated  data  will  provide  some  benefit  to 
the  public.  They  cite  the  following  possible  uses: 

1.  Any  company  in  a  particular  line  of  business 
will  have  some  measure  by  which  it  can 
evaluate  its  performance  as  compared  to  other 
companies. 

2.  Competitive  market  entry  may  be  encouraged 
for  high  profit  industries. 

3.  Better  investment  decisions  will  be  made. 

4.  "Like  economists  within  the  FTC,  outside  scholars 
will  use  the  LOB  reports  as  a  basic  source  for 
advancing  the  frontiers  of  industrial 
organization  knowledge  (16:339)." 

These  benefits  rest  on  the  presumption  that  the  aggregate  FTC  LOB 
data  refines  and/or  extends  the  census  industry  data  in  some  useful 
ways.  It  is  this  presumption  which  will  be  examined  in  this  thesis. 


The  census  4-<ligit  SIC  industry  data  has  been  used  extensively 
to  examine  the  relationship  between  net  profitability  and  industry 
concentration  (28:270-272).  This  data  is  gathered  on  an  establishment 
(plant)  basis  and  aggregated  into  the  4-digit  SIC  'industries*.  Some  of 
these  "industries*,  as  noted  above,  may  depart  significantly  from 
true  economic  markets  (see  Shepherd  [29:175]  for  a  discussion  of 
economic  markets).  The  FTC  categories  are  comprised  of  data 
aggregated  from  LOB  definitions  which  are  thoiight  to  be  an 
improvement  over  the  Census  definitions  (27:22).  This  may  seem 
surprising  since  44S  of  the  FTC  categories  correspond  more  closely  to 
3-digit  SIC  codes  which  are  more  aggregated  than  the  4-digit  codes 
which  the  Census  uses  in  compiling  its  industry  statistics.  Some 
economic  markets  may  best  be  captured  by  the  three  digit  codes 
however.  This  thesis  will  analyze  the  Census  "industry*  data  and 
the  FTC  LOB  aggregated  data  to  determine  the  extent  to  which  the 
latter  differs  and/or  improves  upon  the  former  for  purposes  of 
studying  the  question  of  how  market  structure  relates  to  industry 
profitability.  This  question  has  been  explored  extensively  by 
industrial  organization  economists  over  the  last  thirty  years  and  the 
need  to  gain  further  insights  into  this  relationship  was  a  major 
factor  in  the  FTC's  data  initiative. 

Research  Question. 

How  does  the  FTC  data  extend  and/or  improve  upon  the 


stAtictical  and/or  aconomic  rasvilts  obtainod  with  tha  structura-profit 
model  using  census  industry  data  alone? 

Subsidiary  Questions. 

1.  What  factors  are  available  in  each  data  base? 

2.  How  comparable  are  similarly  defined  factors  in  the  two 
data  bases? 

3.  How  robust,  both  economically  and  statistically,  is  the  basic 
structural  model  in  each  data  base? 

4.  How  effectively  does  the  FTC  data  base  allow  one  to  extend 
the  basic  structural  model? 

Research  Method 

Qygryifw  al 

Specific  items  of  information  from  both  the  FTC  and  Census  data 
bases  were  entered  into  separate  files  on  the  UNIX  VAX  computer. 
The  FTC  data  base  was  actually  composed  of  two  distinct  data  sets 
containing  information  for  the  years  1975  and  1976  respectively. 

Two  other  years  worth  of  FTC  data  (1973  and  1974)  exist  but  were  not 
used  since  they  represented  a  period  of  time  when  government 
imposed  wage  and  price  controls  were  in  effect  (1).  A  single  set  of 
data  was  constructed  using  primarily  Annual  Survey  of 
Manufacturers  (ASM)  data.  Additional  data  items  were  drawn  from 
the  1972  and  1977  Censuses  of  Manufacturers  and  the  1977 
Input-Output  Tables  either  because  some  data  was  contained  in  the 


LOB  data  base  but  not  available  in  the  ASM  data  or  was  not 
contained  in  the  LOB  or  ASM  data  but  which  would  allow  further 
expansion  of  the  basic  model. 

A  pairwise  correlation  matrix  was  created  to  ascertain  the 
degree  to  which  similarly  defined  data  from  each  of  the  two  data 
bases  were  comparable.  Other  variable  pairs  showing  a  strong 
correlation  with  one  another  were  studied  to  ensure  the  relationships 
could  be  explained  economically. 

The  following  profit-structure  model  was  taken  from  Allen  (2:934) 
and  served  as  a  standard  against  which  the  models  developed  for 
this  research  effort  and  the  results  of  this  thesis  were  compared; 

PCM  «  /  (C44«COj:O^ISP,CDUM,6ROW) 

where: 

C4  is  the  four  firm  concentration  ratio  and  is  measured  as  the 
market  share  of  the  four  largest  firms  in  any  one  industry 
(32:188), 

KO  is  the  capital-output  ratio  and  is  defined  as  "the  gross  book 
value  of  fixed  assets  divided  by  the  value  of  shipments*  (2:934), 
NCO  is  the  number  of  companies  represented  in  each  Census 
industry  category  for  1977, 

DISP  is  a  measure  of  the  tendency  for  a  particular  industry  to 
be  concentrated  in  a  relatively  small  geographic  region  of  the 
country  (11:286).  It  is  calculated  as  follows: 


Ill  n 

Disp=  12 

isij=l 


VAddy  VAdd 


VAdd^ 


VAdd 


where: 

"i“  represents  the  region  number, 

"J"  represents  an  industry  identifier, 

"m"  is  the  total  number  of  industries,  and 
"n"  is  the  total  number  of  regions. 

Since  VAdd  by  region  does  not  appear  in  the  1977  Census  (6:XV), 
this  information  is  extracted  from  the  1972  Census. 

CDUM  is  a  dummy  variable  which  is  used  to  account  for  possible 
differences  in  total  advertising  expenditures  between  the  consumer 
and  producer  goods  markets  (25:44).  "It  is  equal  to  one  for  consumer 
goods  industries  and  zero  for  producer  goods  industries"  (2:934). 

GROW  is  an  indicator  of  the  change  in  size  of  a  peu’ticular 
industry  over  the  period  between  the  Census  years,  1972  and  1977. 

It  is  calculated  according  to  the  following  equation: 

GROWj  =  - 

VShiPj  ,972 

and  the  Price  Cost  Margin  (PCM)  as  explained  by  Shepherd  (32:269)  is 
defined  as: 


Price-cost  margin  > 


Value  of  shipments 

Value  of  shipments  (VShip)  is  essentially  what  an  industry 
receives  in  payment  for  all  products  shipped  in  a  given  year.  This 
includes  the  value  of  materials  which  were  transferred  between 
companies  in  a  single  organization  (6:A-2).  Value  added  (VAdd)  as 
explained  by  Shepherd  (32:269)  is  contained  in  the  Census  data.  It 
can  be  derived  from  the  FTC  data  as  follows: 

VAdd  *  VShip  -  (U>8t  of  Materials 

*  (End  of  Year  Inventory  -  Beginning  of  Year  Inventory) 

The  Biomedical  Data  Programs  (BMDP)  were  used  to  estimate 
least  squares  regressions  of  the  basic  model  expressed  in  a  linear 
form  using  the  two  data  bases  (13:237).  Comparisons  were  made  of 
the  resulting  adjusted  R  squared  ^^)  values  (23:424);  the  F  test  for  a 
regression  relation  (23:240),  and  the  t  test  for  testing  the  significance 
of  individual  variables  (23:243). 

The  basic  model  was  extended  to  allow  for  the  addition  of 
several  other  variables  which  are  available  from  the  Census  and  FTC 
LOB  data  bases. 
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II.  Uterature  Review 


Introduction 

As  indicated  in  the  previous  chapter,  this  thesis  will  concentrate 
on  the  profitability  model.  The  pioneering  efforts  in  the  use  of  this 
model  can  be  traced  back  to  Joe  Bain's  1951  effort  which  considered 
the  relationship  between  rate  of  return  on  equity  after  tax  (34:196) 
and  the  eight  firm  concentration  ratio.  Bain's  work  indicated  that 
increased  concentration  does  increase  profitability  for  leading  firms 
in  a  given  industry.  Many  studies  have  followed,  but  not  all  have 
shown  this  relationship  to  be  a  strong  one.  (34:196-209). 

The  issue  which  has  developed  since  Bain  published  his  paper 
concerns  his  interpretation  of  the  concentration  coefficient.  There 
are  those  like  Bain  who  believe  the  more  concentrated  are  the 
leading  firms  in  an  industry,  the  more  likely  those  firms  are  to 
collude  either  tacitly  or  implicitly  to  control  prices.  On  the  other 
hand,  there  are  those  who  believe  higher  profitability  accrues  to 
larger  firms  because  of  increased  efficiency  (12:1). 

The  proponents  of  efficiency  argue  that  the  anti-trust  legislation, 
which  is  designed  to  prevent  resource  misallocation,  as  currently 
written  does  more  harm  than  good  when  it  leads  to  the  breaking  up 
of  large  efficient  firms  Just  because  they  hold  a  dominant  position  in 
their  market  (18:83).  Harold  Demsetz,  a  leading  proponent  of  this 
viewpoint,  believes  Market  Share  is  a  stronger  indicator  of 
profitability  than  is  concentration  (12:1).  The  greater  the  Market 
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share  of  the  firm,  the  greater  is  the  economy  of  scales  which  are 
possible.  This  in  turn,  reduces  cost  and  increases  profits  (18:83). 
Demsetz  has  offered  evidence  which  indicates  that  concentration  is 
positively  related  to  profits  for  only  the  largest  firms  of  an  industry, 
but  that  similar  levels  of  concentration  in  firms  of  smaller  size 
indicate  no  increases  in  profitability  (2:933).  This  analysis  would 
tend  to  support  Market  Share  as  the  primary  relationship.  Gale  and 
Branch  (18)  used  a  supposedly  more  accurate  set  of  data  collected 
over  several  years  by  the  Strategic  Planning  Institute  (30:109)  and 
arrived  at  the  same  conclusion.  Unfortunately  this  data,  like  the 
individual  firm  FTC  data,  is  not  available  for  public  scrutiny,  which 
leads  to  the  point  of  this  thesis.  Given  the  independent  researcher 
has  no  access  to  much  of  the  supposedly  better  data  sets,  is  it  still 
possible  to  do  meaningful  work  with  the  data  that  is  available? 

The  remainder  of  this  chapter  is  divided  into  two  sections.  The 
first  section  will  concentrate  on  studies  of  the  profit-structure 
relationship  which  used  predominantly  Census  data.  The  second 
section  will  consider  some  of  the  results  offered  by  researchers  who 
had  access  to  either  the  confidential  PIMs  or  FTC  data  bases.  The 
emphasis  in  both  sections  will  be  on  data  bases.  Specific  questions 
considered  include: 

1.  What  available  data  was  used? 

2.  What  was  the  period  covered  by  the  data? 

3.  What  was  the  motivation  for  including  a  specific  data  item 
in  the  first  place? 


4.  What  variables  shed  additional  light  on  the  profit-structure 
relationship? 

The  chapter  will  begin  with  the  work  of  Bain  who  used 
predominantly  Census  data  in  his  studies,  and  will  end  with  the 
work  of  Ravenscraft  who  was  among  the  first  researchers  to  add  FTC 
data  to  the  profitability  model.  The  reader  should  keep  in  mind  that 
not  all  the  variables  discussed  were  included  in  the  data  base  used  in 
this  thesis  since  many  of  them  were  created  from  information  not 
available  to  the  public. 

Census  Data  Studies 

Researchers,  beginning  with  Bain,  have  relied  heavily  upon 
Census  data  for  their  studies.  This  is  because  the  Census  data  is  the 
most  comprehensive  source  of  concentration  values  which  is  publicly 
available.  The  need  for  this  information  is  made  evident  by  Bain's 
major  hypothesis  (3:294); 

the  average  profit  rate  of  firms  in  oligopolistic  industries  of 
a  high  concentration  will  tend  to  be  significantly  larger 
than  that  of  firms  in  less  concentrated  oligopolies  or  in 
industries  of  atomistic  structure. 

Bain  drew  his  concentration  data  from  the  1935  Census  of 
Manufacturers  (3:298).  This  Census  reported  on  340  manufacturing 
industries  in  all.  His  profit  data  was  derived  from  Security  and 
Exchange  Commission  (SEC)  publications,  covering  the  years  1936  to 
1940  (3:303). 
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The  SEC  publications  provided  data  on  only  152  Census  industries 
which  meant  the  remaining  188  industries  were  eliminated.  Three  of 
the  remaining  industries  lacked  the  necessary  concentration  data 
and  so  they  were  also  eliminated  leaving  149.  In  34  cases,  the  SEC 
profit  data  represented  three  or  fewer  firms  in  the  industry  and 
hence  did  not  cover  a  large  enough  proportion  of  industry  output  to 
be  kept  in  the  study.  Six  more  industries  were  eliminated  because 
their  Census  concentrations  did  not  correspond  closely  enough  to  data 
available  from  another  source  (3:304).  These  actions  left  109 
industries  for  further  consideration. 

Unfortunately,  Census  industries  do  not  always  correspond  to 
true  economic  markets.  In  such  a  market,  it  is  assumed  that  all 
included  goods  are  substitutable  for  one  another  and  hence  compete 
directly  with  each  other  for  sales.  Examples  include  Cane  and  Beet 
sugar;  margarine  and  butter;  cassette,  8-track,  and  open  reel  tape 
recorders  among  others.  Definitional  problems  and  the  fact  that 
Census  data  represents  the  sum  of  national  sales  for  each  industry 
often  causes  the  data  to  fail  to  represent  true  markets  on  at  least 
three  counts  (3.299): 

1.  Census  industries  may  contain  products  which 
though  similar  in  material  content  are  not  truly 
substitutable  for  one  another.  An  example  of  such 
products  include  armor  plate,  ball  bearings,  and 
construction  I  beams  which  are  all  produced  by  the 


steel  industry  but  which  obviously  have  totally 
diverse  and  noncompatible  uses. 

2.  At  the  other  extreme.  Census  industries  may  be  too 
narrow  in  scope,  not  including  all  products  which 
may  be  close  substitutes  for  one  another.  Canned 
Fruits  and  Vegetables  (SIC  2033)  and  Frozen  Fruits 
and  Vegetables  (SIC  2037)  are  but  one  example  of  this 
problem  The  Census,  under  such  circumstances, 
would  overstate  the  concentration  of  these 
industries.  A  similar  effect  can  be  observed  when 
a  large  quantity  of  imports  forms  a  substantial 
segment  of  overall  sales  in  a  particular  market.  But 
these  imports  are  not  recorded  in  the  Census. 
Therefore,  the  Census  concentration  ratio  will  again 
overstate  concentration  in  the  industry  for  failing  to 
consider  all  competitors.  Bain  rejected  3  industries 
because  they  were  too  segmented  and  1  industry 
because  it  failed  to  consider  imports. 

3.  Finally,  because  of  the  national  perspective  of  the 
Census  industry  data,  local  market  influences  are  not 
drawn  out.  The  baking  of  bread,  for  example,  is 
conducted  on  a  local  enterprise  basis  given  the  time 
constraint  of  freshness  and  transportation  costs. 

Total  production  costs  will  differ  between  regions 
based  upon  the  costs  of  flour  and  labor.  Unions  will 
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be  strong  in  some  areas,  flour  may  be  more  or  less 
costly  amongst  other  things.  This  local  effect  will 
generally  be  misrepresented  in  the  national  figures 
by  concentration  ratios  lower  than  would  be 
revealed  by  individual  local  market  concentration 
indices  (11:273).  Using  the  geographical  market 
segmentations  outlined  in  the  publication,  Structure 
of  the  American  Economy  (3:303),  Bain  reduced 
the  number  of  industries  by  66,  all  of  which  he 
found  susceptible  to  regional  effects.  Later 
investigation  (3:304)  revealed  some  of  the 
publication's  information  was  in  error  which  resulted 
in  three  of  the  previously  rejected  industries  being 
added  back  to  the  list. 

Bain  was  left  with  42  industries  after  performing  the  elimination 
process  described  above. 

Bain  established  a  profitability  measure  for  testing  his  hypothesis 
as  follows  (3:310): 


Profit  = 


Annual  net  profit  after  income  taxes 
Net  worth  at  beginning  of  year 


This  was  the  profit  for  each  firm.  He  calculated  this  value  for  each 
firm  for  each  of  the  five  years  covering  the  period  1936  to  1940, 
inclusive.  He  then  calculated  an  industry  average  profit  rate  for 


each  of  these  five  years  as  follows: 


Z  firm  profits 

Industry  average  profit  rate  =  Z  firm  net  worths  (2.2) 

Number  of  firms  in  Industry 

Bain  chose  the  eight  firm  concentration  (C3)  measure  (3:311)  for 
his  calculations.  This  lead  to  the  following  basic  model: 

Industry  average  profit  rate  *  ^  ^{03  (2.3) 

Considering  only  the  firms  with  net  worths  of  5  million  or  more 
dollars,  Bain  found  that  a  significant  increase  in  profitability  existed 
for  firms  which  were  part  of  industries  with  Cg  above  70  percent 
(see  Table  2.1).  Bain  also  divided  the  firms  into  different  size  classes 
(3:322).  He  was  not  able  to  find  any  relationship  between  firm  size 
and  profitability.  He  also  reported  no  sitpnificant  correlations 
between  profitability  and  the  *ratio  of  capital  to  total  assets,  the 
ratio  of  overhead  to  total  costs,  the  ratio  of  net  worth  to  sales,"  and 
a  measure  of  the  number  of  consumers  as  opposed  to  producers  who 
would  be  purchasing  the  product  (3:323). 

Bain's  results  supported  his  hypothesis  but  he  cautioned  that 
studies  would  have  to  be  conducted  for  periods  outside  of  the  1936  to 
1940  time  frame  to  see  how  robust  these  findings  really  were.  Many 


•uch  works  did  follow  including  anothor  one  by  Bain  (3:3).  Perhaps 
the  most  intensive  study  was  that  of  Collins  and  Preston  in  1968  (11). 

Collins  and  Preston  concentrated  on  data  contained  in  the  1963 
Census  (11:274).  Like  Bain,  they  viewed  any  positive  relationship 
between  profitability  and  concentration  as  an  indication  of  collusion 
amongst  the  leading  firms. 

These  authors  attempted  to  use  control  variables  to  adjust  for 
the  deficiencies  of  the  data  rather  than  eliminate  observations  as 
Bain  had  done.  They  also  grouped  industries  according  to  three 
characteristics,  type  of  purchaser,  product  differentiation,  and 
increasing  or  decreasing  levels  of  concentration.  Each  of  the  total 
417  4-digit  industries  were  classified  as  either  consumer  or  producer 
oriented  according  to  an  unpublished  1963  FTC  classification  guide 
(11:278).  From  this  process,  141  industries  were  found  to  belong  to  the 
former  group  and  276  belonged  to  the  latter.  A  similar  process  was 
undertaken  to  divide  the  identified  consumer  goods  industries  into 
those  which  actively  pursued  product  differentiation  and  those 
which  did  less  so.  Product  differentiation  is  normally  attained  via 
advertising  and  is  viewed  by  some  as  a  barrier  to  market  entry 
(25:6).  Division  was  again  accomplished  using  an  unpublished  FTC 
document.  The  FTC  apparently  made  its  determinations  based  on 
the  advertising  expenditure  to  sales  ratio  for  the  industry.  Generally 
industries  classified  as  undifferentiated  showed  ratios  of  less  than  1 
percent,  those  moderately  differentiated  between  1  and  10  percent, 
and  those  highly  differentiated  over  10  percent.  Of  the  industries 
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considered,  93  were  classified  as  highly  or  moderately  differentiated. 
The  final  groupings  involved  the  division  of  both  the  producer  and 
consumer  groups  into  those  industries  whose  concentration  ratio 
increased  since  the  previous  Census  year,  1958,  those  whose 
concentration  decreased,  and  those  whose  concentration  remained 
relatively  stable. 

Having  grouped  their  data,  Collins  and  Preston  then  performed 
the  following  regression  on  each  of  these  subgroupings  as  well  as  all 
417  industries: 


PCM  *  Pq  *  ^|C^  *  ^Disp  *  P3KO.  (2.4) 

C4,  Disp,  and  KO  are  as  defined  in  Chapter  1.  Disp  is  used  to  help 
control  for  geographic  influences  on  concentration.  The  capital 
intensity  measure,  KO,  controls  for  the  *inter>industry  differences  in 
capital  intensity,  and  hence  in  implicit  capital  costs*  (19:102)  which 
are  not  incorporated  in  the  price  cost  margin.  Under  competitive 
conditions,  "margins  over  variable  costs  should  be  higher  in 
industries”  for  which  KO  is  large  since  management  must  attempt  to 
'  recover  the  cost  of  capital  investment  in  the  long  run  (11:272). 

Collins  and  Preston  use  the  Price-Cost  margin  also  defined  in 
Chapter  1.  They  feel  this  measure  is  appropriate  because  the  rate  of 
'  return  on  assets  used  by  Bain  and  others  cannot  be  directly 

computed  using  Census  data  and  the  "relationship  between  prices 

i 
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and  costs,  and  with  the  discrepancy  between  them  that  gives  rise  to 
profits*  (11:272)  is  not  as  visible. 


Like  Bain,  the  authors  feel  their  analysis  generally  supports  their 
theory.  Their  results  are  contained  in  Table  2.2.  The  coefficient  of 
the  concentration  ratio  was  significant  in  all  their  regressions. 
Generally  concentration  had  a  greater  bearing  on  consumer  industry 
profits,  differentiation  had  little  bearing  at  all,  and  consumer 
industry  profits  were  favored  in  industries  where  concentration 
remained  stable  between  Census  years.  This  latter  result  is  not 
unexpected  given  that  changes  in  concentration  for  an  industry 
indicate  that  the  industry  is  undergoing  a  period  of  disequilibrium. 
During  such  times  many  forces  could  act  to  dilute  any 
profit-concentration  relationship  (11:279).  Such  forces  could  include 
price-cutting  by  an  established  firm  in  the  face  of  new  competition 
or  shifts  in  consumer  tastes  among  other  things. 

The  authors  made  further  investigations  to  see  if  the  positive 
concentration-profit  association  resulted  mostly  from  a  relationship 
between  the  concentration  ratios  and  profit  margins  of  the  largest 
firms  in  an  industry.  They  made  further  regressions  of  the  same 
model  used  before,  but  this  time  used  Census  data  which  considered 
the  top  four  firms  in  an  industry.  This  type  of  data  was  unavailable 
for  11  of  the  previously  considered  417  industries.  This  time,  the 
results  were  not  so  pronounced;  however,  the  concentration-profit 
relationship  was  again  stronger  in  consumer  rather  than  producer 


goods  industries. 
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Leonard  W.  Weiss  wrote  a  paper  (34)  in  1974  which  summarized 
the  research  on  the  concentration-profit  relationship  up  to  that 
time,  including  the  two  papers  already  discussed.  He  also  extended 
some  of  the  work  of  Collins  and  Preston. 

Weiss  corrected  for  what  he  thought  were  the  major  defects  of 
the  Collins  and  Preston  studies  (34:227).  Though  he  developed  several 
variables,  the  following  model  includes  his  most  significant; 

PCM  -  ^0  ^  ^1^4  *  «  ^3^0  ♦  ^4A/S  ♦  ^sCOE  (2.5) 

where; 

A/S  was  an  advertising  to  sale  ratio  calculated  from  data 
contained  in  1963  Input-Output  Tables.  This  data  was  available 
for  only  227  of  Collins  and  Preston’s  original  set  of  406  industries 
because  not  all  input-output  categories  corresponded  to  Census 
4-digit  industries, 

Disp  and  KO  are  defined  in  Chapter  1,  and 

COE  represents  central  office  employment  divided  by  total 

employment. 

Weiss  used  the  same  1963  Census  data  set  which  Collins  and  Preston 
used  for  his  calculations  of  the  dependent  and  independent  variables 
(34:227). 

Weiss  found  the  addition  of  the  A/S  and  COE  variables  did  not 
significantly  affect  the  results  of  Collins  and  Preston.  Weiss,  like 
Bain,  then  added  several  more  variables.  These  included  the  ratio  of 


the  output  of  the  mid  size  plant  in  an  industry  to  that  industry's 
total  sales  and  a  measure  of  industry  growth,  and  a  ratio  of 
consumer  demand  to  total  demand  multiplied  by  the  concentration 
ratio.  (34:229).  Like  Bain,  Weiss  found  none  of  these  variables  to 
have  a  significant  impact  in  the  model.  Some  of  these  variables  will 
be  discussed  later  in  this  thesis.  One  is  worth  discussing  at  this  point. 

The  consumer  demand  variable  was  an  attempt  to  capture  the 
percentage  of  total  shipments  which  were  destined  for  consumers. 

To  Weiss,  this  represented  an  improvement  over  the  division  of 
industries  into  consumer  and  producer  groups  accomplished  by 
Collins  and  Preston.  The  argument  seems  reasonable  given  that 
many  industries  (e  g.,  chemicals  and  electronic  components  )  engage 
in  both  consumer  and  producer  shipments.  The  data  for  this 
calculation  was  obtained  from  the  1963  Input-Output  Tables. 

Caves,  Shirazi,  and  Porter  (10)  addressed  the  hypothesis  that 
scale  economies  can  be  used  to  erect  barriers  to  entry.  These 
barriers  are  created  in  a  particular  market  if  the  minimum  plant 
size  which  will  insure  efficiency  and  hence  competitiveness  in 
production  is  quite  large.  The  firms  already  in  such  an  industry  can 
collude  together  and  raise  their  prices  above  the  competitive  rate  as 
long  as  they  do  not  exceed  the  threshold  which  would  attract  new 
entrants  in  spite  of  the  large  entry  expense.  The  authors  use  1965 
and  1958  Census  data  combined  with  IRS  minor  industry  data.  Their 
profitability  measure  was  similar  to  that  used  by  Bain: 


Gross  income  -  taxes 
Stockholders  equity 

Cg  ♦  fl/S  +  GR  >  KR  +  REG  +  fli  ♦GR»C8  +  HESCfl 

A/S  is  the  industries  advertising  to  sales  ratio  for  firms  with 
assets  less  than  500,000  dollars  as  averaged  over  the  years  1963  to 
1965,  inclusive.  This  information  was  extracted  from  IRS  data. 

GR  was  the  ratio  of  1965  industry  shipments  to  1958  industry 
shipments  as  taken  from  the  appropriate  Censuses. 

KR  was  the  product  of  the  plant  minimum  efficient  scale  (MES) 
for  the  industry  and  the  industry  assets  to  sales  ratio.  These 
authors  defined  MES  as  "the  average  size  of  the  largest  plants 
accounting  for  502  of  industry  output,  expressed  as  a  percentage  of 
industry  sales*  (10:137).  It  is  assumed  this  data  was  derived  from  the 
Census.  KR  is  an  attempt  to  measure  the  capital  requirements  of  a 
particular  industry  and  hence  is  similar  to  the  capital-output  ratio 
discussed  earlier. 

REG  was  an  indicator  variable  which  attempted  to  control  for 
the  regional  market  effects  on  concentration  discussed  earlier.  This 
variable  was  set  equal  to  1  if  the  industry  was  considered  regional 
and  to  0  otherwise. 

A1  was  the  product  of  A/S  and  advertising  i>er  firm  for  the 
largest  firms  accounting  for  at  least  302  of  industry  shipments.  No 
theoretical  explanation  of  this  variable  was  offered  nor  was  it 
considered  in  the  authors'  subsequent  analysis. 


GR*CR8  was  the  product  of  the  growth  variable  and 
concentration  ratio  already  discussed.  Like  Al,  the  authors  offer  no 
specific  theoretical  Justification  for  its  inclusion.  One  possible 
explanation,  offered  by  Collins  and  Preston  (11:282),  says  that  the 
concentration  of  industries  will  grow  over  time  assuming  the  largest 
firms  in  those  industries  had  margin  advantages  to  begin  with. 

MESCA  was  the  quotient  of  MES  and  the  cost  disadvantage  ratio 
(CDR).  CDR  was  defined  to  be  the  'average  value-added  per  worker  in 
plants  supplying  approximately  the  bottom  508  of  industry 
value-added  divided  by  average  value-added  per  worker  in  plants 
supplying  the  top  508"  (10:135).  This  interaction  term  reflected  the 
possibility  that  even  with  modest  cost  disadvantages  some  potential 
competitors  may  decide  to  enter  the  market  anyway  because  the 
entry  barriers  are  actually  lower  than  implied  by  the  minimum 
efficient  scales  measure  alone  (19:102).  The  ratio  was  found  to  vary 
between  less  than  unity  and  slightly  above  unity  for  the  industries 
considered.  The  authors  constrained  the  values  above  unity  to  be 
equal  to  one  since  their  interest  was  in  industries  for  which  this 
value  would  be  considerably  less  than  unity.  A  variety  of  similar 
variables  were  constructed  by  taking  the  product  of  MES  and  a 
dummy  variable.  For  example,  the  dummy  variable  in  MESDIO  was 
set  equal  to  one  if  the  value  of  CDR  was  less  than  1  and  to  0 
otherwise.  Similarly  MESD15  included  a  dummy  variable  set  equal 
to  1  if  CDR  was  less  than  .85. 


Running  their  basic  regression,  but  taking  into  account  different 
MESD  variables,  the  authors  concluded  that  entry  barriers  are 
created  only  when  the  COR  is  large,  in  the  neighborhood  of  between 
10  and  20  percent.  Table  2.3  lists  several  of  their  results.  Note  the 
entry  barrier  variable  was  significant  for  all  four  regressions. 

In  1979,  John  Kwoka  submitted  a  paper  to  the  economic 
community  (19)  which  suggested  the  four-firm  concentration  ratio 
was  too  broad  in  scope  to  detect  the  existence  of  collusion  on  the 
part  of  the  leading  firms.  He  based  this  assertion  on  studies  he  was 
able  to  perform  using  an  independent  data  set  which  allowed  for  the 
determination  of  market  share  for  each  of  the  largest  individual 
firms  in  an  industry. 

Kwoka's  model  is  not  unlike  the  ones  previously  described  in  this 
paper.  It  essentially  summarizes  the  work  in  the  area  by  the 
previous  authors. 

PCM  «  FSD  ♦  KO  ♦  DISP  ♦  GROW  ♦  CDUM  ♦  MID  ♦  MCDR  (2.7) 

PCM,  KO,  and  DISP  are  defined  as  described  in  chapter  1. 

GROW,  as  explained  in  Chapter  1,  represents  the  percentage  change 
in  industry  shipments  between  1967  and  1972  (19:102).  This 
measure  differs  from  the  GR  variable  used  by  Caves,  Shirazi,  and 
Porter  which  takes  the  simple  ratio  of  these  two  values, 

MID  (mid-point  plant  scale)  as  mentioned  previously  was  used 
by  Weiss.  He  found  it  to  be  of  little  significance  in  his  study  (34:229). 
Again,  MID  is  defined  as  the  value  of  shipments  produced  by  a 


fictitious  plant  located  in  the  center  of  the  plant  size  distribution  for 
a  particular  industry  (34:230).  The  size  of  this  plant  is  estimated 
from  the  employment  size  classes  in  the  Census  (19:102). 
Unfortunately,  this  variable  tends  to  be  highly  correlated  with  the 
concentration  ratio. 

Caves,  Porter,  and  Shirazi  had  broken  a  similar  correlation 
problem  which  existed  between  C4  and  MES  when  they  multiplied 
MES  by  the  Cost  Disadvantage  Ratio  (CDR).  Kwoka  performed  a 
similar  alteration  of  MID  to  accomplish  the  same  objective.  In 
addition  to  a  reduction  of  collinearity  in  the  model,  Ewoka  also  found 
that  the  use  of  MCDR  improved  the  overall  fit  for  the  model  (19:103). 

The  variable  CDUM  attempts  to  capture  the  advertising  effect 
discussed  earlier.  It  is  set  equal  to  1  if  the  industry  is  consumer 
oriented  and  to  0  otherwise.  The  determinations  were  based  in  part 
on  a  1967  article  published  by  the  FTC  (19:102)  which  in  turn  were 
based  on  industry  advertising  to  sales  ratios.  The  origin  of  this  data 
is  indeterminate.  Kwoka  infers  that  input-output  data  would  have 
been  preferable  but  was  not  available  for  the  1972  Census  year  at  the 
time  this  article  was  published  (19:102). 

FSD  (Firm  Size  Distribution)  refers  to  the  several  possible 
methods  employed  by  the  author  in  capturing  industry 
concentration.  These  include  the  standard  Census  C^  calculation,  the 
Herfindahl  index,  and  one  which  the  author  derived  using  the 
Economic  Information  Systems  (EIS)  data  base. 


The  Census  definition  was  discussed  in  Chapter  1.  Shepherd 
believes  this  is  "the  best  all-purpose  measure  of  the  degree  of 
competition"  (32:190). 

The  Herfindahl  index  is  defined  as: 

n  2 

H  =  I  p" 

1*1  * 

where 

Pj  is  the  market  share  of  the  ith  firm  (26:186). 

This  tends  to  give  greater  weight  to  the  larger  firms  in  an  industry 
(32:189)  because  of  the  squaring  of  the  market  share.  The  upper 
bound  of  this  index  is  unity  and  the  lower  bound  is  unity  divided  by 
the  number  of  firms  in  the  industry  (22:125).  The  lower  bound  is 
approached  when  all  the  firms  in  an  industry  are  of  approximately 
equal  size.  The  principle  difficulty  in  the  use  of  this  index  is  the 
inaccessibility  of  market  share  data  due  to  disclosure  regulations. 
These  were  discussed  in  Chapter  1. 

Kwoka  tried  to  mimic  the  Census  concentration  ratio  by 
obtaining  market  share  data  from  a  source  other  than  the  Census. 
This  data  set  was  put  together  by  Economic  Information  Systems, 

Inc.  and  contained  information  on  over  120,000  manufacturing 
establishments  in  the  United  States,  each  with  20  or  more  employees 
(19:109).  Employment  for  an  Individual  plant  was  determined  by 


reference  to  a  mailing  originally  sent  out  to  300,000  establishments. 
EIS  matched  this  information  to  the  County  Business  Patterns 
statistics  which  contained  employment  figures  by  SIC,  and  then 
calculated  a  productivity  factor  derived  from  the  Census. 


Productivity 


VShIp  (for  a  specific  plant  size) 
Number  of  employees  In  such  a  plant 


(2.9) 


EIS  then  multiplied  this  factor  by  the  number  of  employees  in  each 
plant.  This  yielded  a  value  of  shipment  figure  for  the  plant 
corresponding  to  a  Census  4-digit  industry  which  was  then  divided 
by  the  total  shipments  for  that  Industry  to  arrive  at  approximate 
market  share.  The  FTC  took  the  work  of  EIS  and  aggregated  the 
plant  data  Into  firm  data.  Kwoka  then  added  the  market  shares  for 
the  four  largest  firms  in  the  industry  to  arrive  at  a  proxy  for  four 
firm  concentration. 

The  EIS  concentration  ratio  is  very  comparable  to  that  contained 
in  Census  data  (19:109).  For  example,  the  mean  4-firm  concentration 
ratio  for  EIS  industries  was  0.398  compared  to  0.409  for  the  Census. 
The  correlation  coefficient  between  the  two  sets  was  0.922. 
Unfortunately,  these  comparisons  could  not  be  made  for  all  417 
Census  industries.  Non-compatibility  between  industry  definitions 
and  the  before  mentioned  failure  of  some  Census  industries  to 
capture  true  economic  markets  reduced  the  sample  for  comparison 
to  314  industries. 
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In  running  his  model  with  the  different  concentration  measures 
(see  Table  2.4),  Kwoka  found  the  EIS  based  concentration  measure  to 
be  "the  more  consistent  standard  against  which  to  judge  later 
results."  (19:103).  He  found  the  Herfindahl  index  to  give  better  results 
in  the  form  of  higher  values  and  larger  t-statistics  over  both  the 
Census  ratio  and  his  ratio  only  when  using  MID  instead  of  MCOR. 

But  when  using  MCDR,  which  always  provided  better  results,  his 
ratio  outperformed  the  Herfindahl  index  which  in  turn  outperformed 
the  Census  ratio. 

These  findings  are  important  in  the  development  of  this  thesis 
because  they  point  out  the  effect  the  use  of  different  data  can  have 
on  only  a  single  variable  which  in  turn  can  have  a  large  impact  on 
the  outcome  of  an  economic  investigation.  Kwoka  builds  upon  these 
results  by  questioning  the  use  of  four  firms  for  building  the 
concentration  ratio  in  the  first  place. 

By  adding  market  shares  one  at  a  time  to  the  model  in  lieu  of 
the  FSD,  Kwoka  builds  a  strong  case  that  really  only  two  firms  have 
a  real  impact  on  profitability.  This  is  strongly  indicated  by  the 
significance  of  the  concentration  coefficients  of  the  regressions  shown 
in  Table  2.5.  The  third  market  share  when  added  has  an 
indeterminate  sign  which  leads  Kwoka  to  believe  that  if  the  third 
firm  is  very  strong  in  an  industry  it  is  more  likely  to  become  a  rival 
of  the  two  larger  ones  rather  than  to  enter  any  form  of  price 
collusion.  The  fourth  share,  when  added,  gives  only  a  very  small 


improvement  in  and  therefore  plays  no  systematic  part  in 
industry  performance  (19:108). 

The  last  article  to  be  reviewed  in  this  section  is  the  most  recent 
in  the  genre  of  those  which  have  proceeded  it.  It  was  written  by 
Robert  Allen  and  as  mentioned  in  the  first  chapter  will  serve  as  the 
standard  against  which  much  of  the  empirical  work  of  this  thesis 
will  be  measured.  Allen's  model  was: 

PCM  -  Po  «  «  ^2^^^  *  ^SNCO  4  4  ^5CDUM  4  ^^DISP  4  ^GROW 

(2.10] 

KO  and  DISP  are  as  defined  in  Chapter  1. 

CDUM  and  GROW  are  as  defined  by  Cwoka,  though  the  source  of 
selection  for  CDUM  comes  from  Ornstein  (25)  rather  than  an  FTC 
publication. 

NCO  is  the  number  of  companies  in  any  given  industry.  As  the 
number  of  companies  Increase  in  an  industry  it  is  to  be  expected 
their  ability  to  collude  will  decrease.  A  large  number  may  also  be 
indicative  of  relatively  low  capital  requirements,  which  means  that 
even  if  collusion  to  maintain  prices  above  costs  were  to  occur  it 
would  not  take  long  before  new  entrants  would  again  force  prices 
down. 

CAR  (Cost  Advantage  Ratio)  is  calculated  as  follows: 


\^ere  NEmp  represents  the  numher  of  employees  in  the  ith  firm. 
This  is  a  measure  of  relative  efficiency  between  the  top  firms  of  an 
industry  and  the  next  four  largest. 

I  (Strategic  Group  Concentration)  is  defined  as: 


I  = 


Z  VShip^ 

I _ 

9 

1  VShIPi 

1-1 


(2.12) 


where  the  index  0)  represents  a  ^iccific  firm  in  an  industry  ordered 
in  size  from  the  largest  to  the  smallest  in  value  of  shipments.  The 
Strategic  Group  Concentration  will  increase  in  value  as  the  market 
power  of  the  top  four  firms  of  an  industry  increases. 

Allen  deleted  70  industries  from  the  451  available  in  the  1972 
Census  because  they  failed  to  coincide  with  well  defined  economic 
markets  (2:937).  Eighty  additional  industries  were  disqualified 
because  they  lacked  either  capital  intensity,  margin,  or 
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concentration  data.  This  left  297  industries  for  the  analysis.  Allen 
created  an  additional  sub-grouping  of  130  industries  by  finding  the 
critical  value  of  CAR  at  which  significant  scale  economies  were 
realized  in  the  Industry  under  consideration. 

Some  of  Allen's  results  can  be  seen  in  Table  2.6.  Both  variables, 

I  and  CAR  were  statistically  significant  (2:938).  NCO  was  less  so. 

Allen's  results  indicate  strategic  group  concentration  to  be  a  better 
measure  of  the  market  power  wielded  by  the  top  firms  in  the 
Industry  rather  than  the  Census  concentration  ratio. 

Other  Data  Bases 

Thus  far,  this  chapter  has  considered  the  profitability  industrial 
structure  question  from  the  viewpoint  of  Census  data  and  those  who 
feel  concentration  may  play  a  major  role  in  determining  the 
profitability  of  a  firm.  Another  school  of  thought  as  briefly  described 
in  the  introduction  does  exits.  But  more  importantly  to  this  thesis, 
so  do  other  sets  of  data  exist  which  can  have  a  bearing  on  this  issue. 
These  include  the  Profit  Impact  of  Market  Strategies  (PIMS)  data  set 
as  well  as  the  FTC  LOB  data  set  which  was  outlined  in  the  first 
chapter. 

The  PIMS  program  had  its  origins  in  the  early  sixties.  It  started 
as  out  as  an  internal  planning  study  conducted  by  the  General 
electric  company  (30:108).  The  program  was  eventually  adopted  by 
the  Harvard  Business  School  and  grew  to  encompass  many 
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companies.  In  the  beginning  of  1975,  program  administration  was 
turned  over  to  a  non-profit  organization  called  the  Strategic  Planning 
Institute.  The  data  is  collected  on  a  business  basis.  A  business  is 
defined  to  be  ”a  company  component  that  competes  in  a  well-defined 
...  market  containing  that  component's  relevant  competitors"  (18:87). 
As  of  1982,  over  200  companies  were  participating  in  the  program 
which  represented  over  2000  separate  businesses.  Over  100  pieces  of 
information  are  reported  for  each  business  (18:88).  The  institute 
takes  this  data  and  through  empirical  research  develops  models. 
These  models  attempt  to  capture  the  relationships  of  performance  to 
structure  and  strategy.  In  return  for  providing  information  to  the 
institute,  the  participating  companies  receive  reports  detailing  the 
findings  of  the  institute  as  well  as  individual  analyses  on  the 
businesses  they  reported  on  (30:109). 

Generally  the  institute  focuses  on  relationships  and  not  on 
theory.  Outliers  are  either  eliminated  or  their  information 
compressed  to  fall  within  the  limits  of  variation  established  for  the 
program.  Patterns  are  identified  based  upon  three  criteria  (30:111): 

1.  They  are  significant  at  the  958  level  or  better. 

2.  They  conform  to  theory.  Theories  may  arise  from  the 
literature  or  from  the  empirical  findings  of  the  institute. 

3.  They  make  sense  to  business  people  \^o  arc  knowledgeable 
of  the  experiences  the  findings  are  attempting  to  describe. 

Multicollinearity,  the  correlation  of  independent  variables  used  in  a 
model  to  one  another  (23:272),  was  not  originally  a  concern  of  the 


^  ^  i  ^  ^  it  ^  ■"—  jT.-  -  »*-  «*—  ■* -  aT ^  Ik.*^  _ 


43 


institute  planners  (30:112).  They  did  not  hesitate  to  complicate  their 
models  whenever  significant  gains  in  statistical  fit  were  brought 
about  by  the  inclusion  of  a  new  variable  (30:115). 

Two  individuals,  Bradley  Gale  and  Ben  Branch,  did  undertake  an 
investigation  which  concentrated  on  the  more  traditional 
profit-structure  model  using  entirely  PIMS  data.  Their  results  were 
published  in  1982  (18). 

Initially  Gale  and  Branch  focused  on  a  very  simple  model  which 
was  reminiscent  of  Bain's. 

ROI  -  ^0  ^  ^2^4  * 

MS  is  the  market  share  of  a  firm  in  a  particular  industry  and 
was  calculated  as  the  percentage  of  an  industry's  sales  accounted  for 
by  that  particular  firm.  The  authors  followed  the  4-digit  SIC 
classification  of  industries  "where  appropriate,  but  more  relevant 
industry  or  market  definitions  are  employed  when  the  SIC  data  do 
not  accurately  reflect  competitive  conditions  in  the  market"  (18:89). 
Unfortunately,  the  authors  do  not  elaborate  on  the  type  of 
adjustments  they  made  to  the  SIC  industry  definitions. 

They  began  by  averaging  the  market  share  and  concentration 
variable  of  their  model  over  a  four  year  period  (18:88).  Generally  this 
encompassed  the  years  1976  to  1979,  inclusive.  Where  data  for 
certain  businesses  was  incomplete  for  these  years,  they  would 
include  data  from  other  years  until  their  requisite  four  year 


averages  could  be  attained.  The  concept  of  averaging  was  discussed 
by  Weiss  (34:199).  He  and  these  authors  both  feel  that  doing  so 
will  smooth  out  short  run  disequilibrium  effects  in  the  different 
markets. 

The  authors  used  Return  On  Investment  (ROD  for  each  business 
as  their  dependent  variable. 

Profits  (before  taxes) 

ROI  =  - 

Invested  capital 

The  results  of  performing  the  regression  can  be  seen  in  Table  2.7. 
The  authors'  results  differed  from  the  work  previously  discussed  in 
this  paper  because  they  found  concentration  to  have  little  if  any 
significance  when  compared  to  market  share.  Of  course  most  of  the 
previous  work  in  this  area,  with  the  exception  of  Kwoka,  did  not 
have  market  share  data  to  draw  on.  These  findings  tend  to  coincide 
with  the  work  of  Harold  Demsetz.  He  questioned,  in  a  paper 
published  in  1973,  the  tendency  of  modern  economists  to  look  first  for 
the  evidence  of  monopoly  in  the  economy  rather  than  for  other 
equally  plausible  explanations  for  the  positive  concentration  profit 
relationship  (12:1).  Other  possibilities,  he  contended,  were  lower  costs 
incurred  by  large  scale  operations,  the  quality  of  management,  or 
perhaps  Just  blind  luck. 

Gale  and  Branch  checked  the  possibility  that  their  results  were 
based  upon  a  misspecified  concentration  ratio  as  had  been  put  forth 


Table  2.7 


Regressions  Using  ROI 


Equation 

Constant 

Share 

coefficient 

Concentration 

coefficient 

R2 

DF 

1 

16.6 

0.10 

0.017 

1484 

(1.2) 

(0.02) 

2 

11.5 

0.499 

-0.020 

0.199 

1483 

(1.2) 

(0.027) 

(0.019) 

3 

10.5 

0.492 

0.198 

1484 

(0.6) 

(0.026) 

Source:  Adopted  from  Bradley  T.  Gale  and  Ben  S.  Brandt,  "Concentration 
Versus  Moflcet  Share:  Which  Determines  Performance  and  Why 
Does  It  Hatter?."  Antitrust  Bulletin.  27:  90  (Spring  1962). 
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by  Kwoka.  First  they  divided  their  data  into  two  groups  (i8:97).  The 
first  group  was  comprised  of  businesses  ranked  as  first  or  second  in 
their  respective  industries.  The  second  group  consisted  of  all  the 
remaining  businesses  in  each  industry.  Their  results,  shown  in 
Table  2.8,  continue  to  indicate  market  share  and  not  concentration 
to  be  the  prevailing  influence  In  both  groups. 

The  last  paper  to  be  reviewed  in  this  chapter  concerns  non 
aggregated  FTC  data.  The  paper  was  written  by  David  Ravenscraft. 
The  origins  of  this  data  set  and  its  content  were  reviewed  in  some 
detail  in  Chapter  1. 

Ravenscraft  included  up  to  23  variables  in  his  models  (27:30). 

The  author  looks  at  both  Census  and  LOB  data,  sometimes  combining 
them  in  a  single  model. 

The  major  components  of  the  LOB  model  include  the  following 
elements; 

LBOPl  is  the  LOB  dependent  variable.  It  is  calculated  as  follows: 

L0OPI  =  Operoting  income  (2. 1 5) 

Soles 

=  Soles  -  nolerlals  -  Peg  -  Adver  -  OSE  -  G&AE  -  Depr 

Soles 


where  Pay  is  the  LOB  payroll,  Adver  is  advertising  outlays  for  the 
LOB^  and  OSE  are  Other  Selling  Expenses.  G&AE  are  general  and 
administrative  expenses  allocated  by  some  method  to  each  LOB 


Table  2.8 


Regressions  of  Morlcet  Shore  by  Rank 


Merket  share  rank  1  or  2 

ROI:  21.66  *  9.35***  Shantndax  -  0.04  Concentration 

(0.72)  (0.54) 

R?  s  0.160 
OF  s  950 

Market  share  rank  3  or  lower 

ROI=  20.18  «  6.83***  Share  Index  -  0.05  Concentration 

(1.63)  (0.76) 

R2  =  0.033 
OF  s  530 


Source:  Adapted  from  Bradley  T.  Gale  and  Ben  S.  Branch,  'Concentration 
Versus  Market  Share:  Which  Determines  Performance  and  Why 
Does  It  Matter?,"  Antitrust  Bulletin.  22:  100  (Spring  1982). 
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v^lch  the  office  services  In  a  company  (14:258),  and  Depr  represents 
depredation  on  company  assets  which  are  specifically  used  In  the 
LOB  or  which  can  be  allocated  among  several  LOBs  on  a  reasonable 
basis  (14:258).  Pay  does  not  Include  the  salaries  of  central 
administrative  offices  but  is  Intended  to  capture  the  whole 
sum  of  monies  payed  out  by  the  company  to  produce  in  a  particular 
LOB  (14:272).  Other  Sdllng  Expenses  Includes  all  expenses  incurred  In 
promoting  a  product  but  which  are  not  directly  related  to 
advertising.  The  biggest  contributor  would  be  the  maintenance  of 
company  sale  forces  who  make  direct  contact  with  potential 
customers  (14:8). 

To  render  the  Census  data  more  comparable  to  LOB  data, 
Ravenscraft  stiggeats  subtracting  the  ratios  of  Industry  advertising  to 
sales,  R8D  to  sales,  and  depreciation  to  sales  from  the  price  cost 
margin  as  defined  in  Chapter  1  (27:22). 

Ravenscraft  claims  there  are  crucial  definitional  differences 
between  Census  value  of  shipments  and  L(A  sales.  Unfortunately, 
the  paper  to  which  he  refers  the  reader  for  an  explanation  of  these 
adjustments  Is  not  available  from  the  FTC.  These  calculations  are 
crucial  in  determining  useful  market  share  values  of  each  of  the 
LOBs.  The  Market  Share  variable  was  obtained  by  dividing  the 
adjusted  LOB  sales  figures  by  the  adjusted  Census  Value  of  Shipment 
figures  (27:31). 

Three  market  share  interaction  terms  were  included  In  the 
model  to  help  determine  the  source  of  market  share's  positive 


relationship  with  profits  (27:23).  The  first,  LBASSMS,  includes  the 
LOB  advertising  to  sale  ratio.  A  positive  coefficient  here  would 
support  the  contention  that  firms  with  greater  market  share  have 
more  marketing  power,  and  hence  are  able  to  attain  a  higher  price 
for  their  products.  The  second,  LBASSMS,  includes  the  total  assets  to 
sales  ratio  and  would  indicate  the  presence  of  scale  economies  if  its 
coefficient  were  positive.  The  last  interaction  variable,  LBRDMS, 
includes  the  ratio  of  R&D  expenditures  to  sales.  A  positive 
relationship  here  would  lend  credence  to  the  theory  that  larger 
firms,  because  they  have  more  money  to  spend  on  research  and 
development,  also  take  industry  leadership  in  product  innovation  and 
hence  can  charge  higher  prices  because  of  their  premium  quality 
products. 

The  author  again  uses  the  same  three  basic  variables  in  forming 
a  check  for  the  effects  that  different  investment  strategies  might 
have  on  a  firm's  profitability.  From  the  three  variables  he  develops 
both  an  industry  and  LOB  measure,  as  well  a  set  of  interaction 
terms  with  market  share.  The  industry  data  variables  are 
aggregated  from  LOB  data.  They  are  formed  by  dividing  LOB  market 
share  by  the  percentage  of  an  industry  covered  by  the  LOB  sample 
to  obtain  a  relative  weight,  and  then  multiplying  the  weight  by  the 
LOB  values  for  the  industry.  Ravenscraft  states  that  the  Industry 
variables  may  offer  some  measure  of  entry  barriers  existing  in  a 
particular  market  (27:23).  A  positive  relationship  between 
profitability  and  the  LOB  variables  may  be  an  indication  of 
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efficiencies  in  the  firm.  Should  these  efficiencies  be  attributed  to 
scaled  economies  or  be  persistent  in  time,  the  interaction  terms 
should  show  a  positive  relationship. 

The  Input-Output  Tables  of  1972  were  used  extensively.  The 
variable,  IMP  was  obtained  by  dividing  the  import  figures  in  the 
tables  by  the  VShip  in  the  Census  (27:50).  A  measure  of  exports, 

EXP,  was  obtained  in  a  similar  manner.  The  variables  were 
apparently  included  as  a  control  for  the  US  trade  imbalance  (27:25). 

Buyer  and  seller  concentratkm  ratios  (BCR  and  SCR)  as  well  as 
dispersion  indices  (BDSP  and  SDSP)  were  also  obtained  (27:30).  The 
buyer  ratio  attempts  to  capture  the  amount  of  industry  output 
taken  by  the  four  largest  purchasers  (20:477).  Similarly  the  seller 
concentration  ratio  captures  the  amount  of  industry  output  sold  by 
the  four  largest  firms.  High  concentration  on  the  part  of  the  buyers 
may  infer  to  them  an  ability  to  name  their  price.  High 
concentration  for  sellers  will  make  it  possible  for  them  to  sustain  a 
certain  price.  Martin's  paper  (27:25)  which  discussed  the  effects  of 
buyer  and  seller  dispersion  could  not  be  traced.  Mere  conjecture 
would  Indicate  that  the  more  geographically  dispersed  are  the  sellers 
or  buyers  of  different  products,  the  less  able  will  they  be  to 
effectively  steer  prices  away  from  their  competitive  values.  The 
data  for  two  variables  were  based  on  work  by  Weiss.  One  considered 
the  distance  in  which  SOS  of  the  output  of  an  industry  was  shipped 
(DS).  The  other  (CR^)  was  an  adjusted  concentration  ratio.  Weiss's 


paper  could  not  be  obtained  and  so  the  exact  calculations  involved 
are  unknown  for  the  purposes  ot  this  thesis. 

One  of  Ravenscraft's  more  intriguing  variables  (LBCU)  attempted 
to  measure  the  utilization  of  capital  assets  over  a  given  year.  This 
knowledge  can  be  of  use  to  macroeconomists  as  they  attempt  to 
predict  the  ability  of  the  economy  to  grow  in  a  future  period 
(4:115-116).  The  variable  is  formed  by  taking  the  ratio  of  the  current 
year's  sales  to  the  previous  year's.  Values  greater  than  one  are  set 
equal  to  one,  in  effect  saying  an  increase  in  capital  usage  occurred. 
Firm  assets  are  then  multiplied  by  this  ratio  to  get  the  percentage  of 
utilization. 

Vertical  integration  describes  the  extent  to  which  a  single  firm 
controls  the  migration  of  a  product  from  the  initial  use  of  raw 
materials  to  the  output  of  a  final  good  (22:187).  A  firm  can  gain 
some  cost  advantage  if  it  possesses  the  manufacturing  capability  to 
produce  a  product  and  not  have  to  deal  with  other  firms  to 
complete  intermediate  stages.  Ravenscraft  measures  this  capability 
with  a  dummy  variable  (LBVI)  (27:24).  The  variable  was  set  equal  to 
one  if  the  FTC  felt  that  several  LOBs  of  a  firms  were  sufficiently  tied 
together  to  allow  them  to  report  on  a  combined  basis.  Generally  this 
occurred  if  total  sales  or  costs  of  an  LOB  could  be  traced  to  another 
LOB  in  the  same  firm  and  these  sales  or  costs  exceeded  501  of  the 
LOB'S  totals.  A  similar  aggregated  industry  measure  (INDVI)  was  Also 
calculated  using  the  weighting  techniques  described  above.  LBVI  will 
have  a  positive  effect  on  profitability  if  a  reduction  in  transaction 


costs  actually  occur,  while  INOVl  will  have  a  similar  effect  if  vertical 
intesration  creates  an  entry  barrier  or  makes  collusion  more  viable 
(27:24). 


Ravenscraft  also  attempted  to  measure  for  possible  effects  of 
diversification  on  competition  using  ideas  originally  established  by 
John  Scott  (31:368).  Scott  believed  that  as  more  firms  become 
diversified  they  would  begin  to  meet  in  more  markets  and  hence 
their  opportunity  to  collude  would  increase.  He  hypothesized  this 
phenomena  would  be  more  likely  to  occur  in  markets  where  both 
seller  concentration  and  multimarket  contact  are  high.  Firms  in 
this  situation  would  recognize  their  interdependence  on  one  another 
and  hence  seek  to  not  compete  away  their  potential  profits  (31:372). 
Ravenscraft's  measure  of  these  tendencies  was  as  follows  (27:24): 


LBDIV  = 


I  SLS. 


(2.16) 


SLS|  represents  sales  of  a  firm  in  its  ith  LOB. 
n  is  the  number  of  LOBs  in  which  the  firm  participates. 

This  might  be  recognized  as  a  form  of  the  Herfindahl  index  (see 
above).  Generally,  the  greater  the  value  of  LBDIV,  the  more 
diversified  the  firm.  A  weighted  industry  measure  (INOIV)  was  also 
devised. 


The  measure  of  minimum  efficient  scales  was  identical  to  the 
one  used  by  Caves,  Shirazi,  and  Porter  with  the  exception  that  data 
was  drawn  from  the  1972  Census. 

A  growth  variable  (GRO)  was  included  which  coincided  with  the 
definition  in  Chapter  1.  Although,  the  author  used  1976  A^^  data 
instead  of  1977  Census  data. 

The  final  variable  discussed  by  the  author,  but  not  part  of  the 
model,  was  a  measure  of  the  coverage  of  a  given  industry  by  those 
included  in  the  LOB  data.  It  was  calculated  as  the  sum  of  market 
shares  for  a  particular  industry  included  in  the  LOB  data  probably 
divided  by  VShip  for  that  industry  as  reported  in  the  Census  (27:SO). 
The  author  made  no  mention  of  the  division;  however,  he  did  refer 
to  the  variable  as  a  ratio.  The  3,186  LOBs  represented  in  the  FTC 
data  covered  about  47.5  f  of  total  sales  for  each  industry  on  average 
(27:24). 

Ravenscraft  found  it  necessary  to  eliminate  certain  LOB  data 
Just  as  other  authors  discussed  in  this  chapter  found  it  necessary  to 
eliminate  certain  industries  from  the  Census  data.  The  reasons 
though  were  somewhat  different.  Originally  the  1975  LOB  data  set 
contained  3,548  LOBs  coinciding  with  261  4-digit  FTC  categories.  The 
author  eliminated  363  LOBs  because  they  were  not  reported  on  in 
either  the  1974  or  1976  LOB  data  sets.  Additional  LOBs  were  dropped 
because  they  contained  data  from  firms  \^ch  recently  started 
activity  in  the  LOB  or  they  contained  data  from  firms  which  went 
out  of  business.  After  these  ”births  and  deaths*  were  eliminated,  258 


FTC  categories  still  contained  data  from  at  least  one  firm. 

Some  comparisons  showed  the  1975  FTC  data  set  to  be  somewhat 
reliable.  The  correlation  of  fixed  capital  asset  figures  between  this 
data  set  and  the  1975  Survey  of  Manufacturers  was  0.9  (27:24).  The 
correlation  was  0.8  when  the  advertising  figures  from  the  LOB  data 
were  compared  to  similar  data  available  in  the  Input-Output  Tables. 

Ravenscraft  discusses  two  models  and  the  results  they  give. 

Table  2.9  shows  the  model  without  interaction  terms.  Note  the  signs 
on  the  concentration  ratio  (C^),  the  advertising  to  sales  ratio 
(LBADVR),  and  the  capital  output  measure  (LBASS)  are  all  negative. 
Theory  would  predict  a  positive  relationship  for  all  three.  Table  2.10 
shows  the  model  with  interaction  terms,  though  most  of  the  linear 
terms  were  omitted  that  were  affected  insignificantly  by  the 
additional  variables  (27:28).  This  time  the  sign  for  C4  Is  positive 
while  the  other  two  mentioned  previously  continue  to  show  the 
wrong  negative  sign.  The  three  major  findings  were  that  increased 
capacity  utillxation,  industry  growth,  and  market  share  all  had  a 
positive  effect  on  profits.  Concentration  played  apparently  no  part  in 
the  equation,  even  when  the  author  divided  the  data  into  producer 
and  consumer  categories  in  the  spirit  of  Collins  and  Preston  or  when 
he  divided  the  data  into  convenience  versus  nonconvenience  items. 
No  mention  is  made  of  the  particular  method  he  used  in  doing 
either. 

This  chapter  has  summarized  some  of  the  ways  in  which 
previous  authors  have  used  available  data  in  order  to  ascertain  the 
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Table  2.9:  Results  without  Interaction  Terms 


LiMtrBwiMM 

liimitre 

(N- 

3186) 

(N 

-258) 

Vartabte 

_ LBQB _ 

_ IMDKM _ 

ii»— 

OIS 

fits 

OLS 

GIS 

iRterctpt 

-0.2227 

-0.1985 

-0.0046 

0.0334 

<-5.27) 

(-6.05) 

(-0.08) 

(0.70) 

CR4 

-0.0218 

-0.0222 

0.0322 

0.0375 

(-1.34) 

(-1.77) 

(1.31) 

(1.67) 

MS 

0.1833 

0.1476 

(4.90) 

(5.51) 

MB 

0.2142 

0.1761 

0.1932 

0.0703 

(1.94) 

(2.05) 

(1.51) 

(0.56) 

BC8 

0.0544 

0.0552 

-0.0311 

-0.0184 

(3.25) 

(4.48) 

(-1.15) 

(-0.82) 

B06P 

-0.0066 

-0.0046 

-0.0177 

-0.0314 

(-0.67) 

(-0.64) 

(-1.18) 

(-2.16) 

SCR 

-0.0394 

-0.0314 

-0.1651 

-0.1808 

(-1.27) 

(-1.39) 

(-3.70) 

(-4.26) 

SOSP 

-0.0503 

-0.0459 

-0.1669 

-0.1520 

(-2.53) 

(-2.86) 

(-5.14) 

(-4.41) 

GRO 

0.0520 

0.0384 

0.0197 

0.0213 

(7.21) 

(6.70) 

(1.69) 

(1.99) 

IMP 

-0.0637 

-0.0401 

-0.0097 

-0.0270 

(-5.06) 

(-2.23) 

(-0.58) 

(-1.54) 

CXP 

0.0299 

0.0651 

-0.0121 

-0.0487 

(0.65) 

(1.73) 

(-0.17) 

(-0.68) 

06 

-0.0157 

-0.0127 

-0.0208 

-0.0002 

(-2.38) 

(-2.52) 

(-1.93) 

(-0.02) 

LBVI 

0.0133 

0.0101 

(1.52) 

(1.55) 

IMWI 

-0.0310 

-0.0326 

-0.0472 

-0.0604 

(-2.49) 

(-3.39) 

(-2.68) 

(-3.44) 

LBDIV 

0.0205 

0.0143 

(1.78) 

(1.65) 

INDDIV 

-0.0177 

-0.0283 

0.0174 

0.0199 

(-0.88) 

(-1.87) 

(0.60) 

(0.76) 

LBA0¥ 

-0.0268 

-0.0249 

(-0.30) 

(-0.35) 

iNonov 

0.2473 

0.2284 

0.3174 

0.2457 

(2.04) 

(2.29) 

(2.02) 

(1.49) 

LBRD 

-1.0339 

-0.4746 

(-12.00) 

(-3.60) 

INDRD 

0.2584 

-0.2488 

-0.6187 

-0.6872 

(1.55) 

(-1.51) 

(-2.33) 

(-2.44) 

LBA9S 

-0.0820 

-0.0240 

(-13.72) 

(-2.82) 

IMS:  t-sMIsHcs  tre  f  n  psTSutlmw. 

*  R2  In  tin  GLS  rifrmioM  is  csnpuM  frMi  ths  F-sMistic  sMsimd  by 
constrsinim  til  ths  cssffidsnts  Is  hs  mns, sxBspt  ths  hstsriscsdsitic  sdijiisisi 
csnstSHttsrm.  This  msssvrssfR^iJsssppItssts  ths  OLSsqMtiMMd  thus 
psrnits  ths  fit  sf  ths  two  s^ustiMS  ts  hs  CMuptrsd  in  SUM  fsuwhl  ISMS. 


Source:  Adopted  from  Oevid  J.  Revenscreft,  *Structure>ProfU 
Relationships  at  the  Line  of  Business  and  Industry  Level 
Review  of  Economics  and  Statistics.  65  (1):  26 
(February  1963). 


Table  2. 10:  Results  with  interaction  Terms 


JJQEL 


ftiiiUe  Homo 

OLS 

6LS 

CR4 

0.008 

-0.0139 

(0.04) 

(-0.95) 

MS 

-0.1110 

-0.0086 

(-0.84) 

(-0.09) 

MES 

0.0829 

0.1115 

(0.57) 

(0.94) 

LMbV 

-0.1213 

-0.1554 

(-1.25) 

(-2.00) 

INOMV 

0.1486 

(1.64) 

(1-45) 

LORD 

-1.0398 

-0.4772 

(-11.80) 

(-3.49) 

INDRD 

0.2776 

-0.2129 

(1.62) 

(-1.28) 

LBMSS 

-0.0314 

(-1457) 

(-3.41) 

IN0RS8 

0.0529 

0.0524 

(3.64) 

(4.22) 

LBCR4MS 

-0.4276 

-0.1046 

(-2.24) 

(-0.72) 

LBMESMS 

1.196 

0.3105 

(1.17) 

(0.42) 

LBAOVMS 

2.6604 

3.2375 

(2.22) 

(416) 

LBRDMS 

1.2121 

0.2953 

(0.88) 

(0.24) 

LBASSMS 

0.2220 

(5.15) 

(2.11) 

R2 

0.2191 

0.1352 

Simple  SIxe 

3,186 

3,186 

Note:  t-oteftioNco  ore  In  ^rontlmeo. 


Source: 


Adopted  from  David  J.  Rovenscroft,  'Structure-Profit 
Relationships  at  the  Line  of  Business  and  Industry  Level, 
•Review  of  Economics  and  Statistics.  65  (1):  27  (Feb  1983) 
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relationship  between  market  structure  amd  profitability.  Because  the 
emphasis  was  on  data,  much  of  the  finer  detail  of  the  results  found 
by  these  authors  were  excluded.  The  interested  reader  is  referred  to 
the  extensive  bibliography  if  greater  knowledge  is  desired.  The 
model  which  is  developed  in  the  following  chapter  is  derived  wholly 
from  the  definitions  contained  in  this  chapter.  Generally,  only 
variables  found  to  be  significant  in  the  work  of  these  authors  were 
considered  for  inclusion. 
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The  project  was  accomplished  in  three  distinct  phases:  data 
entry,  creation  of  the  appropriate  data  bases,  and  the  analysis 
conducted  using  these  data  bases. 

Entry 

The  Data  Entry  phase  consisted  of  manually  entering  all  the 
required  data  with  the  aid  of  an  Apple  Macintosh  computer. 

Fortran  programs  were  devised  to  direct  the  sequence  of  entry  and 
to  help  assure  the  quality  of  the  data  being  entered.  The  first 
program,  CENSUS  ENTER  (see  Appendix  A)  was  used  to  form  the 
initial  data  base  of  raw  Census  data.  Various  utility  programs  were 
created  and  used  to  add  other  Census  data  elements  to  this  data 
base  as  they  were  required.  Similarly,  program  FTC  ENTER  (see 
Appendix  B)  allowed  for  the  precise  entry  of  raw  FTC  data  into  either 
one  of  two  other  data  bases.  One  of  these  data  bases  was  for  1975 
Line  of  Business  (LOB)  raw  data  and  the  other  one  was  for  1976  LOB 
raw  data.  Both  programs  queried  the  user  to  enter  values  for  either 
an  Industry  or  LOB  entry.  The  programs  would  then  olsplay  all  the 
entered  data  for  each  industry  or  LOB  and  ask  the  user  if  all  of  the 
displayed  values  were  correct.  If  the  answer  was  no,  the  program 
would  then  ask  for  the  line  number  of  the  item  in  error.  Based 
upon  the  user  response,  the  program  then  displayed  the  name  of 


this  data  item  and  asked  the  user  to  enter  its  new  value.  The 
program  then  redisplayed  the  data  values  for  the  industry  or  L(A 
and  again  asked  if  all  values  were  correct.  This  process  continued 
until  the  user  verified  all  the  displayed  values  were  correct  at  which 
point  the  program  wrote  the  entry  into  the  appropriate  raw  data 
base  file. 

The  data  entered  into  the  Census  raw  data  base  came 
predominantly  from  the  Annual  Survey  of  Manufactures 
information  which  is  contained  in  the  Historical  Statistics  Tables  of 
the  Census  (6).  Some  data  elements  had  to  be  taken  from  the  1977 
(6)  and  1972  (7)  Censuses  of  Manufactures  if  these  were  the  only 
known  sources. 

Line  of  Business  data  from  the  FTC  was  available  for  four  years; 
1973,  1974,  1975,  and  1976.  The  1973  data  set  was  experimental  and 
hence  provided  only  a  limited  number  of  data  items  on  a  relatively 
small  sample  size.  Data  from  1974  was  considered  suspect  since  this 
was  the  last  year  of  wage  and  price  controls.  However,  inventories 
reported  for  this  year  for  each  line  of  business  were  included  in  the 
FTC  1975  raw  data  base  to  make  certain  computations  possible.  This 
left  1975  and  1976  data  for  use  in  the  bulk  of  the  analysis.  A  1977 
set  has  purportedly  been  printed  but  was  not  available  for  this  effort 
(1).  Only  those  FTC  LOBs  corresponding  to  Census  four  digit  industrial 
codes  were  included  in  the  data  bases.  This  was  because  the 
concentration  ratio  (C^)  and  the  Strategic  Group  Concentration  ratio 
(I)  were  available  only  in  the  Census  industry  statistics  Table  8  (6) 
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which  is  compiled  at  the  four  digit  level  for  a  Census  year.  This 
eliminated  150  LOBs  from  inclusion  in  the  data  base. 


Data  Base  Construction 

The  data  entry  provided  three  raw  data  bases  to  worX  with. 

Both  an  FTC  and  Census  data  base  suitable  for  economic  analysis 
were  constructed  from  these  data  bases.  Two  additional  programs, 
CENSUS  BUILD  and  FTC  BUILD  were  written  in  Fortran  to  accomplish 
this  task  (see  Appendices  C  and  D). 

The  CENSUS  BUILD  program  calculated  a  Price-cost  margin 
(CPCM),  a  concentration  measure  (I),  five  control  variables  (Disp, 

GROW,  ImportsToSales,  ExportsToSales,  and  KO),  an  efficiency  measure 
(CAR),  and  six  barrier  to  entry  measures  (MID,  MES,  CDR,  MCDR, 
MESD20,  and  AdvrToSales).  Six  additional  variables  were  passed 
without  further  enhancement  to  the  final  Census  data  base  from  the 
raw  Census  data  base  (SIC,  C4,  NCO,  VShip,  VAdd,  and  Payroll). 

Calculated  values  for  CPCM  and  EO,  in  addition  to  the  passed 
variables  VShip,  VAdd,  and  Payroll  were  included  in  the  Census  data 
base  for  both  the  years  1975  and  1976.  The  simple  averages  for  EO 
and  CPCM  also  were  computed  by  CENSUS  BUILD  and  placed  in  the 
data  base. 


The  Census  Price-Cost-Margin  (CPCM)  was  identical  to  that  used 
by  Collins  and  Preston  (11:285),  and  Allen  (2:934).  See  Chapter  1  for 
the  calculation.  Three  margins  were  derived  for  three  distinct 


periods.  One  each  for  1975  (CPCM75).  1976  (CPCM76),  and  the  average 
of  the  CPCM  (CPCM7576)  for  the  two  years.  The  information  for 
payroll,  Value  Added  (VAdd),  and  Value  of  Shipments  (VShip)  for  the 
years  1975  and  1976  was  taken  from  the  Historical  Statistics  for  the 
Industry  of  the  1977  Census  (6). 

The  Strategic  Group  Concentration  ratio  (I)  was  identical  in 
derivation  to  that  used  by  Allen  (see  Chapter  2  for  the  calculation). 
The  Vadue  of  Shipment  figures  for  the  four  largest  and  eight  largest 
companies  were  obtained  from  the  Concentration  in  Manufacturing 
Tables  of  the  1977  Census  (6). 

The  Control  variables  were  included  to  correct  for  some  of  the 
previously  mentioned  deficiencies  of  the  Census  Price-Cost-Margin. 

The  dispersion  ratio  (Disp)  was  defined  in  Chapter  1.  The  Value  Added 
per  region  (Northeast,  North  Central,  South,  and  West)  as  well  as  the 
total  Value  Added  by  US  manufacturing  were  obtained  from  the  1972 
Census  (7:XX).  Regional  figures  for  Value  Added  by  a  particular  four 
digit  industry  came  from  the  Census  General  Statistics  by  Geographic 
Area  Table  (7).  The  1972  Census  was  used  since  this  type  of  data  was 
excluded  from  public  release  in  the  1977  Census  (6;XV).  The  industry 
growth  measure  (GROW)  was  defined  in  Chapter  1.  Data  for  Value  of 
Shipments  1972  and  1977  for  each  industry  came  from  "Historical 
Statistics  for  the  Industry:  1977  and  Earlier  Years*  (6).  Imports  to 
Sales  and  Exports  to  Sales  were  identical  in  definition  and  source  to 
those  used  by  Ravenscraft  and  are  defined  in  Chapter  2.  The  dollar 
amount  of  exports  and  imports  for  each  Industry  was  taken  from 


columns  94  and  95  respectively  of  the  1977  Input-Output  Table 
entitled,  "The  Use  of  Commodities  by  Industries"  (8:77).  The 
calculation  of  KO  was  based  on  the  division  of  "Gross  value  of  fixed 
assets"  as  contained  in  the  "Historical  Statistics  for  the  Industry: 

1977  and  Earlier  Years"  Table  (6)  by  the  Value  of  Shipments  figure 
found  in  the  same  table. 

The  lone  efficiency  meastire,  the  Cost  Advantage  Ratio  (CAR),  was 
defined  in  Chapter  2.  The  Value  Added  and  Number  of  Employees  for 
the  top  four  and  next  four  companies  was  obtained  from  the 
Concentration  in  Manufacturing  Tables  of  the  1977  Census  (6). 

Five  of  the  six  barrier  to  entry  calculations  (minimum  Efficient 
Scales  [MESX  Midpoint  Plant  Size  [MIDX  Adjusted  Midpoint  Plant  Size 
[MCDR],  Adjusted  Minimum  Efficient  Scales  [MESD20X  and  Cost 
Disadvantage  Ratio  [CDRB  were  based  upon  the  "Industry  Statistics  by 
Employment  Size  of  Establishment:  1977"  Table  (6).  All  these 
calculations  required  the  determination  of  a  mid  point  for  either  the 
Value  of  Shipments  distribution  for  an  industry  or  the  Value  Added 
distribution. 

MID  represents  the  approximate  output  of  a  hypothetical  plant 
located  in  the  center  of  the  Value  of  Shipments  versus  Employment 
class  distribution.  MES,  on  the  other  hand,  is  the  average  size  of  all 
plants  in  the  top  fifty  percent  of  the  Value  of  Shipments  versus 
Employment  class  distribution.  The  calculations  performed  to 
determine  both  MID  and  MES  began  by  dividing  the  total  Value  of 
Shipments  for  each  industry  by  two.  The  program,  CENSUS  BUILD, 


then  started  adding  the  Value  of  Shipments  for  each  employment 
class  beginning  with  the  smallest  until  the  accumulated  total  equaled 
or  exceeded  the  computed  50  percmt  of  the  total  Value  of  Shipments 
figure.  The  value  of  MID  was  then  calculated  by  dividing  the  Value 
of  Shipments  for  the  employment  class  in  which  the  fifty  percent 
level  was  exceeded  by  the  number  of  establishments  in  that  class. 

The  derivation  of  MES  followed  by  first  accumulating  both  the 
Value  of  Shipments  and  number  of  establishments  for  each  of  the 
employment  classes  preceding  the  one  in  which  the  fifty  percent  of 
total  Value  of  Shipments  for  the  industry  was  exceeded.  The 
calculated  value  of  MID  was  used  as  an  increment  representing  the 
Value  of  Shipments  for  a  single  establishment.  The  accumulated 
Value  of  Shipments  figure  was  then  increased  by  MID  until  the  fifty 
percent  level  was  again  exceeded.  The  number  of  times  this 
occurred  represented  the  number  of  establishments  within  the  class 
to  the  midpoint.  The  calculation  of  MES  proceeded  according  to  the 
following  equation: 


MES  - 


(V8hip77  -  RunVShip) 
(TtlEsteUslishments  -  IncrementEst) 
VShip77 


where: 

VShip  77  is  the  total  industry  shipments  for  1977, 
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RunVShlp  is  the  accumulated  Value  of  Shipments  to  the 
midpoint, 

TtlEstablishments  is  the  total  number  of  establishments 
represented  in  the  Census  for  the  industry  under 
consideration,  and 

IncrementEst  is  the  total  number  of  establishments  accumulated 
up  to  the  midpoint  of  the  distribution. 

The  Cost  Disadvantage  ratio  (CDR)  was  calculated  in  a  similar 
manner  to  MES.  CDR  is  the  ratio  of  the  average  productivity  of  a 
worker  in  a  plant  occupying  a  portion  in  the  lower  fifty  percent  of 
the  Value  Added  versus  Employment  class  distribution  to  the 
average  productivity  of  a  worker  in  a  plant  occupying  a  position  in 
the  upper  fifty  percent  of  the  Value  Added  versus  Employment  class 
distribution.  Values  of  CDR  close  to  one  infer  there  are  no  apparent 
advantages  associated  with  economy  of  scales  in  the  industry. 

Values  considerably  less  than  one  imply  such  economies  do  exist  and 
may  present  a  barrier  to  entry.  The  center  of  the  Value  Added 
distribution  was  found  and  the  Value  Added  for  each  employment 
size  class  accumulated,  beginning  with  the  first,  until  the  fifty 
percent  industry  Value  Added  figure  was  exceeded.  An  increment 
was  then  established  by  dividing  the  Value  Added  of  the  employment 
class  where  the  fifty  percent  level  was  exceeded  by  the  number  of 
employees  in  the  same  class.  The  increment  was  continually 
summed  to  the  Value  Added,  which  was  accumulated  up  to  the 
midpoint  class,  until  the  fifty  percent  level  was  again  exceeded.  This 
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marked  the  midpoint  of  the  Value  Added  versus  employment  class 
distribution.  The  fraction  of  Value  Added  for  the  midpoint 
employment  class  which  is  less  than  the  midpoint  was  calculated  as 

Fraction  >  RunVAdd/ClassVAdd 


where: 

RunVAdd  was  the  Value  Added  of  the  midpoint  employment 
class  accumulated  to  the  actual  industry  Value  Added 
midpoint  contained  in  that  class,  and 
ClassVAdd  was  the  value  added  by  the  midpoint  class. 

This  fraction  was  then  multiplied  by  the  number  of  employees  in  the 
midpoint  class  to  obtain  the  number  of  employees  in  the  class 
represented  up  to  the  industry  Value  Added  midpoint.  This  number 
was  then  added  to  the  accumulated  number  of  employees  in  the 
previous  employment  classes,  if  any.  This  value  becomes  the 
employment  figure  for  the  bottom  fifty  percent  of  the  Value  Added 
distribution.  The  upper  value  is  simply  the  difference  between  the 
lower  value  and  the  total  number  of  employees  represented  in  the 
industry.  The  value  of  CDR  is  then  calculated  as  follows: 


CDR  = 


(LowerVAdd/LowerEmp) 

(UpperVAddAJpperEmp) 


vrtiere; 

LowerVAdd  is  the  Value  Added  by  the  bottom  fifty  percent  of 
the  Value  Added  distribution  (note  this  does  not  necessarily 
equal  fifty  percent  of  total  Value  Added  for  the  industry), 

UpperVAdd  is  the  Value  Added  by  the  top  fifty  percent  of  the 
Value  Added  distribution, 

LowerEmp  is  the  number  of  employees  in  the  bottom  fifty 
percent  of  the  Value  Added  distribution  and, 

UpperEmp  is  the  number  of  employees  in  the  top  fifty  percent 
of  the  Value  Added  distribution. 

The  values  MCDR  and  MESD20  were  each  calculated  as  the 
product  of  MID  or  MES  respectively  and  an  indicator  variable 
determined  by  the  value  of  CDR.  For  MCDR,  if  CDR  was  less  than 
0.75,  the  indicator  variable  was  set  to  one.  For  MESD20,  if  CDR  was 
less  than  0.80,  the  indicator  variable  was  set  to  one.  These  critical 
values  are  taken  from  the  works  of  Cwoka  and  Caves  respectively 
and  were  discussed  in  Chapter  2. 

The  Census  Advertising  to  Sales  ratio  was  calculated  by  dividing 
the  dollar  value  of  advertising  consumed  by  each  industry  (row  item 
73.02  of  the  Input-Output  Tables  (lOD  by  the  total  value  of  shipments 
for  the  industry  as  taken  from  Table  la  of  the  1977  Census  (6). 

The  calculations  made  by  the  FTC  BUILD  program,  see  Appendix  D, 
were  less  sophisticated  but  many  times  more  numerous  than  those 
of  CENSUS  BUILD.  Three  representations  of  each  variable  were 
created  covering  the  years  1975,  1976,  and  the  average  of  the  two. 


FTC  BUILD  used  only  FTC  LOB  date  derived  from  the  Aggregate 
Financial  and  Statistical  Data  Table,  hereafter  referred  to  as  the  FTC 
Master  Table,  from  the  FTC  Line  of  Business  Reports  of  1975  and  1976. 
The  item  number  which  uniquely  identifies  each  type  of  data  in  this 
table  will  be  provided  in  parentheses  in  the  following  narrative  when 
first  mentioned. 

Calculations  involving  the  FTC  categories  Media  Advertising 
Expenses  (item  numbers  9  and  t4>.  General  and  Administrative 
Expenses  (item  numbers  11  and  16);  Gross  Plant,  Property  and 
Equipment  (item  numbers  19  and  25>,  and  All  Other  Assets  (item 
numbers  23  and  29)  consist  of  both  a  traceable  and  non*traceable 
component.  Traceable  expenses  and  assets  are  defined  as  those 
‘which  a  company  can  directly  attribute  to  a  line  of  business  or 
which  can  be  assigned  to  a  line  of  business  by  use  of  a  reasonable 
allocation  method  developed  on  the  basis  of  operating  level  realities* 
(14:272).  Non-traceable  expenses  were  assigned  by  a  company  using 
whatever  basis  it  felt  to  be  most  appropriate.  The  only  requirement 
was  that  the  exact  method  of  allocation  be  spelled  out  (14:258).  This 
study  made  the  assumption  that  the  allocation  of  non-traceable 
expenses  by  the  companies  were  accurately  assigned  to  the  proper 
LOB.  Hence  the  traceable  and  non-traceable  expenses  and  assets  for 
all  the  variables  listed  above  were  added  together  to  form  a  single 
value  for  the  respective  LOBs. 

One  Price-Cost-Margin  was  calculated  in  FTC  BUILD  (Line  of 
Business  Operating  Income  to  Sales  (LBOPID,  four  control  variables 


(Capital  Output  to  Sales  [KOftc],  Depreciation  to  Sales  [DeprToSales], 
Capital  Utilization  ratio  [LBCU],  and  Asset  to  Sales  ratio  [LBASSB,  and 
two  barrier  to  entry  variables  (Advertising  to  Sales  ratio  [LBADV] 
and  company  invested  Research  and  Development  to  Sales  [LBRD]). 
Each  of  these  variables  were,  as  their  name  implies,  obtained  by 
taking  one  data  element  of  the  FTC  Master  Table  and  dividing  it  by 
that  Line  of  Business's  total  sales  (item  number  6). 

It  is  worth  noting  that  the  only  three  variables  directly 
comparable  between  the  two  data  bases,  FTC  and  Census,  are  the 
Price-Cost-Margins,  Advertising  to  Sales  ratios,  and  the  Capital  output 
measures.  The  Price-Cost-Margin  was  one  suggested  by  Ravenscraft 
(27:22)  and  was  discussed  in  Chapter  2. 

Another  FORTRAN  program,  MASTER  BUILD  (see  Appendix  E), 
combined  the  elements  of  the  FTC  and  Census  data  bases  into  a  single 
integrated  data  base  (see  Appendix  F)  upon  which  actual  statistical 
analysis  was  performed.  The  program  also  computed  Ravenscraft's 
Industrial  Price-Cost-Margin  (INDPCM)  since  this  margin  is  derived 
from  both  types  of  data.  The  calculation  of  this  margin  proceeded 
as  follows: 

INDPCM  -  CPCM  -  LBADV  -  DeprToSales  -  LBRD 

where  all  the  variables  have  been  previously  identified.  This 
variable  was  not  used  in  the  analysis  conducted  for  this  thesis  but  is 


contained  in  the  master  data  base  and  may  be  of  use  to  future 
researchers. 

Analysis 

The  analysis  pursued  in  this  thesis  can  be  divided  into  four 
parts.  First,  a  very  general  test  for  the  differences  in  the  variability 
and  comparability  of  the  two  data  sets  was  conducted.  Second,  the 
pairwise  correlation  matrix  was  obtained  and  analyzed  for  significant 
interactions.  Third,  a  general  statistical  approach  was  used  to  detect 
differences  arising  between  linear  regressions  of  the  same  model  but 
interchangably  using  elements  of  both  the  FTC  and  Census  data  sets 
where  possible.  Finally,  some  individual  regression  results  were 
considered  in  view  of  the  economic  phenomena  the  different  models 
were  trying  to  capture. 

Data  VarlabUitv  and  Comparability. 

Only  the  following  three  variables  were  comparable  between  the 
two  data  bases:  the  Price-Cost-Margin,  the  Advertising  to  Sales  Ratio, 
and  the  Capital-Output  ratio.  Some  general  population  statistics  are 
contained  in  Table  S.l. 

Table  3.1:  Data  Variability 

yarlablt  NMDR  Mean-census  0 -Census  Mean-FTC  Q-FTC 


A  statistical  test  (21:400)  was  used  to  compare  the  variability  of 


each  of  these  items  in  the  two  data  bases.  The  variability  of  the 
Price-Cost-Margin  was  found  to  be  greater  in  the  Census  data  base 
than  in  the  FTC  data  base.  The  variability  of  the  Capital-Output 
ratio  was  found  to  be  greater  in  the  FTC  data  base.  And  finally  the 
variability  of  the  Advertising  to  Sales  ratio  was  equivalent  between 
the  two  data  bases.  Other  tests  which  compared  the  means  for  the 
three  variables  in  the  two  data  bases  provided  identical  results. 

Sismificant  Interactions. 

A  pairwise  correlation  matrix  was  derived  using  BMOP  (13)  and  is 
shown  in  Table  3.2.  The  program  was  executed  in  such  a  way  that 
as  long  as  both  pairs  of  variables  were  included  in  a  specific  case, 
that  case  was  included  for  the  correlation  calculation.  Generally  any 
interaction  exceeding  0.20  was  considered  significant  at  the  a  *  51 
level  (see  Neter  [20:503]  for  a  method  to  determine  the  critical 
value). 

Variables  which  should  have  been  highly  correlated  and  were 
included  the  following  pairs:  1  and  C4  (0.84),  1C07576  and  KOftc7576 
(0.76),  AdvrToSales  and  LBADV7576  (0.83).  The  correlation  between  I 
and  C4  compares  well  with  Allen's  result  of  0.80  (2:937).  The  variable 
I  is  generally  less  correlated  to  the  other  variables  in  the  model  than 
is  C4.  Regressions  \^ich  were  alike  in  every  aspect  except  for  their 
use  of  1  and  C4  generally  performed  slightly  better  (gave  higher 
values  of  R^)  when  the  variable  I  was  used.  For  these  reasons  all 
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Toble  3.2:  Comparisons  With  Previous  Work 
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regressions  carried  out  in  the  course  of  this  analysis  used  I  instead  of 
C4.  The  correlation  of  the  advertising  to  sales  measures  of  the  two 
data  bases  compared  favorably  with  that  found  by  Ravenscraft 
(27:34),  but  the  two  capital  intensity  measures  were  shown  by  the 
study  to  have  a  correlation  coefficient  of  only  0.76,  whereas 
Ravenscraft  showed  a  much  higher  correlation  coefficient  of  0.9 
(37:24). 

The  Price-Cost-Margins  should  have  all  been  highly  correlated. 
CPCM7576  and  1NDPCM7576  were  (0.86),  however  the  correlation  of 
LBOPl  with  both  CPCM7576  and  INDPCM7576  was  only  moderate,  as 
can  be  seen  in  the  table. 

CAR  was  slightly  to  moderately  correlated  with  1,  C4,  and  both 
advertising  to  sales  ratios.  This  is  not  unreasonable  given  the 
possibility  that  scale  efficiencies  and  concentration  can  be  realized 
simultaneously,  and  that  for  the  firms  which  have  them,  the 
presence  of  scale  economies  which  lead  to  higher  profit  margins  can 
lead  to  higher  advertising  expenditures. 

The  possibility  of  using  different  data  sources  for  specific 
independent  variables  to  help  break  up  collinearity  is  suggested  in 
the  table.  Two  such  combinations  are  noted  here.  The  dispersion 
index  (Disp)  is  slightly  correlated  with  both  the  FTC  capital  intensity 
measure  (KOftc7576)  and  the  Census  advertising  intensity  measure 
(AdvrToSales).  But  Disp  is  not  correlated  with  either  the  FTC 
advertising  intensity  measure  (LBADV7576)  or  with  the  Census  capital 
intensity  measure  (K07576).  Regressions  5e  and  5f  of  Table  3.5  do 


involve  these  particular  data  base  specifications  for  the  independent 
variables  mentioned.  Note  the  large  improvement  in  for  both 
regressions. 

General  Difference  Tests. 

Both  portions  of  the  analysis  were  conducted  on  four  models. 

The  first  model  was; 

Margin  >  fa;>isp4C0^dvr.GR0W) 

which  is  very  similar  to  Allen’s  basic  model  discussed  in  Chapter  1. 
The  two  notable  differences  are  that  an  advertising  to  sales  ratio 
(Advr)  is  used  in  place  of  CDUM  as  a  perhaps  more  precise  estimate 
of  the  effect  of  advertising  intensity  on  profitability,  and  NCO,  the 
number  of  companies  is  excluded  in  view  of  Allen's  regressions  which 
showed  the  variable  to  have  little  influence  (2:938). 

The  next  three  models  added  a  different  variable  to  the  basic 
model.  Model  two  added  the  interaction  effect  of  the  Mid  point 
plant  size  (MID)  and  the  Cost  Disadvantage  Ratio  (CDR)  as  suggested  by 
Kwoka  (19:102).  Model  three  added  the  Cost  Advantage  Ratio  as 
suggested  by  Allen  (2:935).  Model  four  added  the  FTC  measure  of 
company  Incurred  Research  and  Development  costs  as  suggested  by 
Ravenscraft  Q7:23).  Each  of  these  variables  are  discussed  in 
Chapter  2.  Both  the  FTC  and  Census  price-cost  margins  were  used  as 
dependent  variables  in  regressing  the  equations.  The  Ravenscraft 
margin  (INDPCM)  was  not  used  in  this  study. 


The  general  F  test  (23:290)  was  employed  to  detect  any 
differences  arising  between  two  regressions.  The  only  difference  in 
the  composition  of  the  regressions  was  in  the  source  of  data  for  one 
or  two  of  the  independent  variables.  One  regression  might  use,  for 
example,  the  Census  values  for  the  capital-output  and  advertising  to 
sales  ratios,  while  the  second  regression  involved  the  use  of  the  FTC 
values  for  the  same  variable. 

The  general  F  test  itself  is  derived  from  the  basic  assumption 
that  as  variables  are  added  to  a  model,  the  Sum  of  Squares  Error 
(SSE)  for  the  model  should  decrease  as  more  of  the  total  error  (SSE  * 
Sum  of  Squares  Regression  [SSR] )  is  explained  by  the  regression. 

The  F  statistic  itself  is  calculated  from  the  following  equation: 

SSECR)  -  SSE(F)  SSE(F)  ,  , 

P*  .  -  T  -  (3,1) 

(n  -  p)  -  (n  -  p)  (n  -  p) 

where: 

SSE(R)  is  the  sum  of  square  errors  for  the  reduced  model  (i.e., 
the  SSE  from  the  model  run  without  the  additional 
variables), 

SSE(F)  is  the  sum  of  square  errors  for  the  full  model  (i.e.,  the 
SSE  of  the  model  run  with  the  additional  variable  or 
variables), 

n  is  the  number  of  observations  included  in  the  regression, 

q  is  the  number  of  variables  in  the  reduced  model,  and 


p  is  the  number  of  variables  in  the  full  model  (23:291^92). 

Small  values  of  F*  indicate  that  the  additional  variables  offer  little 
increase  in  the  models  ability  to  explain  the  dependent  variable. 

This  is  because  the  difference  in  the  SSEs  of  the  two  models  is  small 
when  their  respective  degrees  of  freedom  are  taken  into  account. 
Large  values  of  F*.  generally  greater  than  four  (9),  indicate  the 
additional  variables  are  of  some  value  in  the  model. 

The  use  of  the  general  F  test  in  this  thesis  closely  parallels  an 
example  described  in  Neter,  Wasserman,  and  Kutner  (23:344). 
Consider  the  following  linear  representations  of  model  one: 

CPCM  s  ♦  ^2^sp  ♦  P3CO7576  ♦  ^^AdvrToSales  ♦ 

where: 

1,  Disp,  and  GROW  are  as  explained  in  Chapter  1, 

C07576  is  the  Census  representation  of  the  average  Capital- 
output  ratio  for  the  years  1975  and  1976,  and 
AdvrToSales  is  the  Census  Advertising  to  sales  ratio 
and 

CPCM  =  Po  ♦  Pl^  ♦  P2  ♦  P5KOftc7576  ♦  P^ADV7576  ♦  P^OW 
where: 

kOftc7576  is  the  average  of  the  FTC  Capital-output  ratios  for  the 


years  1975  and  1976,  and 


LBADV7576  is  the  average  of  the  FTC  Advertising  to  sales  ratios 


for  the  years  1975  and  1976. 

The  question  to  be  answered  is  whether  or  not  the  regression 
equations  which  arise  from  the  statistical  analysis  of  these  two 
representations  are  equivalent  to  each  another.  The  data  used  to 
calculate  F*  (EqS.l)  comes  from  the  regressions  of  the  following  two 
representations  of  the  model: 

CPCM  «  Po  ♦  ♦  ^isp  *  PjKO  *  ^4  Advr  ♦  (3.2 

and 

CPCM  =  Po  *  PlI  ♦  PaWsp  ♦  P5ICO  ♦  P4  Advr  ♦  p^SROW  (3.3 

*  Pe^nd  ♦  P7lnd»K07576  ♦  PoInd»LBAR07576 


where: 

IND  is  a  indicator  variable  set  equal  to  one  if  the  observation  of 
the  Capital-output  ratio  and  Advertising  to  Sales  ratio  for  the 
industry  comes  from  the  FTC  data  set  and  is  zero  if  these  values 
come  from  the  Census  set, 

KO  is  the  Capital-output  ratio  from  the  Census  or  FTC  data  base 
depending  upon  the  value  of  IND, 
and 

Advr  is  the  Advertising  to  Sales  ratio  from  the  Census  or  FTC 
data  base  depending  upon  the  value  of  IND. 
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Equation  (3.2)  is  referred  to  as  the  Reduced  form  of  the  model 
and  equation  (3.3)  is  referred  to  as  the  Full  form  of  the  model.  The 
equations  obtained  by  regressing  (3.2),  and  (3.3)  are  considered 
equivalent  if  the  Sum  of  Square  Errors  obtained  when  regressing  the 
reduced  model  is  not  significantly  different  from  the  Sum  of  Square 
Errors  obtained  for  the  full  model.  This  amounts  to  the  following 
test  of  hypotheses: 

^6  “  P?  *  ® 

not  all  three  equal  zero 

for  if  the  null  hypothesis  is  true,  then  the  full  form  of  the  model 
takes  the  appearance  of  the  reduced  form  of  the  model.  After 
running  the  regressions  of  the  two  formulations,  the  following  results 
were  obtained: 

SSE(R)  >  0.7257618 
SSE(F)  -  0.7M1556 
p  ■  9 
q  ■  6 
n  ■  197 

From  this  data  a  value  of  F*  (Eq3.1)  can  be  calculated  as  follows: 


F*  •  0.7257618  -  0.7141556  ♦  0.7141556  *  1.0184361 


9  -  6 


197  -  9 


The  F  value  when  testing  at  the  a  >  5S  level  is  approximately 
2.600.  Since  F*  is  less  than  the  F  value  (1.02  <  2.600)  the  test  fails  to 
reject  the  null  hypotheses  that  the  two  regression  equations  are  the 
same. 

Appendix  G  contains  the  results  of  the  same  type  of 
computations  for  many  other  pot«itial  regressions  of  the  four  basic 
models.  The  results  for  the  example  can  be  found  by  looking  for  the 
paragraph  headed  by  CPCM  -  f(lJ}ispJC0^dvr,GR0W).  The  pairs  of 
labels  directly  beneath  this  heading  further  define  the  regression. 

The  occurrence  of  both  a  Census  and  FTC  variable  name  for  the  two 
labels  indicates  that  only  one  independent  variable  Is  being  tested  for 
differences  between  the  two  data  bases.  The  first  pair  of  labels  in 
entry  one  of  the  appendix  are  K07576  and  lC0ftc7576  for  example. 
They  indicate  only  the  Capital-output  values  from  the  Census  and 
FTC  data  bases  are  being  tested  against  one  another.  The  default  for 
the  advertising  to  sales  variable  in  any  of  the  regressions  when  not 
specifically  identified  by  one  of  the  labels  is  the  Census  figure.  The 
same  holds  true  for  the  Capital-Output  ratio.  Hence  the  two 
regressions  being  compared  as  indicated  by  the  first  pair  of  labels 
are: 


CPCM  •  f(lJ}ispJC07576>tdvrToSales,GROW)  and 
CPCM  -  f(I^ispJCOftc7576>tdvrToSales,GROW) 

00 


The  table  value  (or  the  F  test  example  computed  above  then  is  found 
by  locating  the  labels  (KOftc7576  and  LBADV7576)  which  corresponds 
to  an  F*  of  1.017766.  The  F  value  for  the  test  is  located  to  the  right 
of  this  value.  The  decision  to  accept  or  reject  the  regression  is 
identified  in  the  fifth  column.  As  for  the  computations  made  above, 
the  test  fails  to  reject  the  null  hypothesis.  The  difference  in  the  F* 
value  of  1.0184361  as  previously  computed  and  the  table  value  is  due 
to  roxondoff  error. 

In  Appendix  G,  some  of  the  entry  headings  are  followed  by 
either  the  words,  Case  Omitted  or  Standard  vs  Omitted.  For 
example,  the  heading  of  entry  three  is  followed  by  the  words  Case 
Omitted.  The  reader  will  note  that  the  basic  model  representation 
for  entry  three  is  identical  to  the  identified  basic  model 
representation  for  entry  one,  namely: 

CPCM  -  f(IJ)i8pj:0,Advr,6R0W) 

The  only  difference  between  the  two  entries  is  that  the  series  of 
regressions  performed  for  entry  three  omitted  the  most  influential 
case  identified  by  their  counterparts  of  entry  one.  This  was  done  in 
order  to  measure  the  relative  sensitivity  for  the  comparisons  of 
entry  one  to  the  effects  of  potential  outliers.  The  disagreement 
between  the  results  of  the  first  two  F  comparisons  made  for  entry 
one  and  the  first  two  of  entry  three  indicate  there  does  exist  a 


relative  seneltivity  to  the  effects  of  outliers  for  the  first  two 
comparisons.  The  most  influential  case  was  identified  by  use  of 
Cook's  distance  (33:108)  as  computed  by  the  Biomedical  Computer 
Program  (BMDP)  9R  (13:271). 

In  Appendix  G,  the  words.  Standard  vs  Omitted,  appearing  beside 
an  entry  header  indicates  all  the  regressions  in  the  paragraph  were 
performed  using  the  same  data  source  for  each  independent  variable 
in  the  two  regressions  compared.  The  difference  is  that  one 
regression  included  all  cases  in  the  model,  and  the  second  one 
omitted  the  most  influential  outlier  identified  by  the  first  regression 
of  the  model  using  the  procedure  described  above.  Entry  five,  for 
example,  uses  the  same  basic  model  representation  as  entry  one. 

The  only  difference  is  that  for  each  regression  of  entry  five,  the 
most  influential  case  identified  by  the  regressions  of  entry  one  were 
eliminated.  None  of  the  comparisons  of  entry  five  resulted  in  the 
conclusion  that  there  was  any  discernible  difference  between  the 
regression  of  a  model  representation  with  all  cases  included,  and  the 
regression  of  the  same  representation  with  the  most  influential  case 
omitted.  Hence  no  sensitivity  for  the  model  representation  to 
outliers  is  identified.  The  reader  is  referred  to  Appendix  G  for  a 
more  complete  set  of  results. 

In  summary,  sixteen  of  the  139  comparison  tests  made  have 
been  excluded  from  the  appendix  due  to  errors  made  in  setting  up 
the  necessary  regressions  for  computer  analysis.  Very  few  of  the 
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comparisons  resulted  In  the  rejection  of  the  null  hypothesis.  In  fact 
only  one  other  rejection  besides  the  two  noted  above  was  noted. 

Economic  Value  of  Data 

Many  comparisons  are  possible  between  regressions  run  with 
FTC  and  Census  data.  In  fact,  over  190  regressions  were  run  diiring 
the  course  of  this  thesis  in  order  to  set  up  the  tests  Just  previously 
discussed.  These  tests  addressed  the  question  of  differences  between 
the  response  equations  when  using  the  two  data  bases  to  address  one 
of  the  four  models.  The  following  discussion  will  center  upon  a  very 
small  fraction  of  the  regression  outcomes  to  get  a  flavor  of  the  merit 
and  potential  for  FTC  data  when  addressing  the  profit-structure 
questions. 

This  analysis  will  be  confined  to  the  values  of  the  data  bases 
which  are  averaged  over  the  years  1975  and  1976  where  possible,  in 
order  to  smooth  short  run  fluctuations.  All  regressions  will  be 
derived  from  the  four  basic  models  previously  discussed. 

The  first  set  of  regressions  to  be  discussed  are  depicted  in 
Table  3.3.  This  table  compares  some  of  the  results  of  this  study  to 
results  from  the  work  of  Kwoka  (19)  and  Allen  (2).  In  the  three 
comparisons  shown  in  the  table,  the  study  regressions  consistently 
indicate  a  better  fit  of  the  data  to  the  model  (In  the  form  of  a 
higher  fi^)  than  do  the  results  of  the  previous  works.  The  study 
results;  however,  indicate  the  Dispersion  index  (Disp),  the 
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Capital-Output  ratio  (K07576),  and  the  measure  of  the  presence  of 
efficiency  barriers  (MCDR)  to  be  insignificant,  whereas  Kwoka  showed 
Just  the  opposite  was  true.  In  the  two  comparisons  with  Allen's 
work,  the  study  showed  both  the  four  firm  concentration  ratio  (C4) 
and  the  Strategic  Group  Concentration  ratio  (I)  to  be  insignificant, 
whereas  Allen  showed  the  opposite.  In  addition,  the  study  showed 
the  GROW  variable  to  be  positive  and  significant  whereas  Allen 
showed  the  variable  to  be  negative  and  insignificant. 

Such  results  do  not  necessarily  indicate  the  data  base  for  this 
study  was  in  error.  Both  Allen  and  kwoka  used  1972  Census  data. 
This  study  used  1977  Census  data.  One  possible  explanation  for  the 
differences  noted  above  is  that  wage  and  price  controls  which  were 
in  effect  in  1972  could  have  led  to  severe  distortion  in  the  economic 
figures.  A  high  rate  of  inflation  occurring  during  1977  could  have 
caused  other  disruptions  in  those  figures.  Both  a  positive  and 
negative  sign  on  the  GROW  variable  have  economic  interpretations 
which  are  tied  closely  to  either  expansions  or  contractions  in  the 
economy. 

Table  3.4  shows  some  additional  regressions.  They  were  each 
run  with  cither  all  Census  data  or  with  as  many  variables  derived 
from  FTC  data  as  was  possible.  A  regression  run  with  a  dependent 
variable  of  CPCM7576  identifies  one  of  the  former  type,  while  a 
dependent  variable  of  LBOPI7576  Identifies  one  of  the  latter  type. 

Two  regressions  are  displayed  for  each  model  definition.  The  second 
regression  of  the  pair  differs  from  the  first  only  in  that  the  most 
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innuential  case,  according  to  Cook's  distance,  for  the  first  regression 
was  eliminated  from  the  second. 

The  definition  of  Cook's  distance  coincides  most  closely  to  the 
definition  of  a  Joint  confidence  region  (33:89).  The  deletion  of  the  case 
with  the  largest  Cook's  distance  will  cause  a  change  in  the  Joint 
confidence  interval  for  the  coefficients.  If  the  edge  of  this  interval, 
as  represented  in  two  dimensions  by  an  ellipse,  changes  by  more 
than  SOS,  the  case  is  considered  influential,  whereas  a  movement  of 
only  20S  is  considered  small  (33:108).  The  percentage  change  is 
identified  for  the  regressions  in  Table  3.4  under  the  column  labeled. 
Ellipse.  The  ellipse  values  for  the  second  entry,  for  example,  are 
48.26  and  3.75  corresponding  to  the  first  and  second  regressions  in 
the  pair  respectively.  The  first  value,  48.26  is  quite  large  and 
indicates  deletion  of  the  most  influential  case  will  result  in  some 
drastic  changes  in  both  the  magnitude  and  significance  of  one  or 
more  coefficients  in  the  regression.  The  second  value,  3.75,  indicates 
stability  in  the  regression  and  that  omission  of  the  next  most 
influential  case  will  result  in  only  small  changes  in  the  regression 
coefficients  and  their  relative  s^nificances. 

The  values  of  R*  are  consistently  higher  for  the  pure  Census 
based  regressions  than  for  those  using  the  FTC  variables.  The 
capital-output  measure  formed  from  FTC  data  (KOftc7576)  provides  a 
consistently  lower  coefficient  and  significance,  usually  with  the 
wrong  sign,  than  when  it  is  formed  from  Census  data. 

The  addition  of  MCDR  in  model  two  caused  the  significance  and 


r" 

II0-MC7  191  PROFITflBILlTV  mim.VSlS  KITH  FTC 
COmiSSION)  LIME  OF  BUSIM. .  <U> 
HRIOHT-PflTTERSON  AFB  OH  SCHOOL 
UNCLASSIFIED  DEC  09  AFIT/OOR/OS/890-14 

(FEDERAL  TRADE 

AIR  FORCE  INST  OF  TECH 
)F  ENGI.  .  Q  P  NILES 

F/0  S/2 

NL  1 

_ 1 

■ _ 

contribution  of  the  strategic  group  concentration  to  rival  that 
obtained  by  Allen  (2:938).  The  significance  of  MCDR  was  minute, 
though  it  should  be  pointed  out  that  MCDR  and  Disp  are  moderately 
correlated  (see  Table  3.2)  thus  confounding  their  respective 
contributions.  The  significance  of  this  result  is  lessened  in  that  the 
addition  of  MCDR  contributed  little  to  the  overall  fit  of  the  model  to 
the  data. 

The  use  of  CAR  in  model  three  brought  about  a  dramatic  Jump 
in  which  increased  from  .25  for  model  one  to  .34  when  the 
Influential  outlier  was  omitted.  It  is  interesting  to  note  that  the 
direction  of  movement  in  significance  and  contribution  for  each  of 
the  common  independent  variables  was  the  same  for  this  analysis 
and  that  of  Allen's  regression  Id  (see  Chapter  2,  Table  2.6).  At  the 
same  time,  however,  the  magnitude  of  the  change  for  concentration 
was  much  greater  for  this  study  leaving  it  insignificant.  Again 
collinearlty  between  the  independent  variables  may  be  responsible. 
CAR  is  highly  correlated  with  both  concentration  and  advertising 
intensity.  Allen's  results  agree  with  the  former  but  not  with  the 
latter  probably  because  his  use  of  an  indicator  variable  for 
advertising  intensity  broke  the  correlation.  The  correlation  between  1 
and  CAR  exceeds  0.4  for  this  study  while  Allen  reported  a  correlation 
of  about  0.3  (2:937). 

The  final  regressions  considered  in  Table  3.4  capture  the  effect  of 
adding  information  heretofore  unavailable  for  profitability  studies. 
Namely  the  amount  of  out  of  pocket  money  which  a  company 


chooses  to  spend  on  research  and  development  for  a  particialar  LOB. 
This  would  be  another  barrier  to  entry  variable.  When  regressed 
against  the  Census  dependent  variable,  research  and  development 
expense  (LBRD)  was  significant  but  concentration  was  not.  When 
regressed  against  the  FTC  dependent  variable,  LBRD,  advertising 
intensity,  and  capital  intensity  were  insignificant  but  concentration 
became  significant.  Correlation  was  low  between  LBRD  and  all  of  the 
other  variables. 

The  inconsistent  results  between  the  regressions  using  LBOPI7576 
and  those  using  CPCM7576  of  Table  3.4  may  be  indicative  of  a 
specification  error  in  one  or  more  of  the  variables  employed  in  the 
model.  Table  3.5  lists  a  series  of  regressions  for  model  one  in  which 
only  the  source  of  the  three  common  variables  are  varied.  Again, 
the  coefficient  of  the  Capital-Output  variab'e  was  usually  small 
whenever  the  FTC  data  base  was  u*’U'd  for  its  derivation  (see 
regressions  5c,  5k,  51).  It  also  became  small  using  the  Census  data 
base  derivation  of  Capital-Output  when  using  the  FTC  dependent 
variable  (see  regression  5i  and  5J).  Given  this  observation  and  that 
the  definitions  were  consistent  for  both  the  capital-output  measure 
and  the  advertising  to  sales  measure  between  the  two  data  bases  it 
seems  possible  that  the  FTC  dependent  variable  definition  may  have 
been  in  error.  Consider  again  the  following  definitions  of  the 
dependent  variables: 
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Table  3.5;  Specification  Errors 


Stud/’s  Results: 


Variable  1 

Oisp 

7576 

7576 

Seles 

7576 

ORCW 

K‘ 

SaCPCM7576  .1I52*» 
5b  CPCM7576  .1275** 

-.0448® 

-.0561® 

.0877** 

.0946® 

»««« 

1.3261® 

1.3758® 

•••« 

.0527® 

.0404** 

.2450 

.2432 

5cCPCM7576  .1381** 
5dCPCM7576  .1217® 

-.0390 

-.0250 

•««« 

-.0046 

.0319 

I.I73I® 

I.I60I® 

»««« 

.0572® 

.0508® 

.1959 

.1891 

SeCPCM7576  .0739 

5f  CPCM7576  .0868 

-.0344^ 

-.0458** 

.I36I* 

.I418® 

•••• 

1.5800® 

1.6293® 

.0518® 

.0379** 

.3463 

.3526 

SgCPCM7576  .1060 
5h  CPCM7S76  .0843 

-.0392 

-.0184 

«««• 

•••« 

.0302 

.0713® 

•««« 

«««« 

1.3262® 

1.3872® 

.0596® 
.051 1® 

.2185 

.2587 

51  LB0PI7576  .1286* 
5J  LB0PI7576  .1325* 

-.0247 

-.0308® 

.0120 

.0046 

«•«« 

.8906® 

.1755 

«««• 

•••• 

.0477® 

.0513® 

.2493 

.1916 

5k  LB0PI7576  .1I98*> 
SI  LB0PI7576  .I300* 

-.0100 

-.0241 

•••• 

.0018 

-.0019 

•••• 

.6854® 

.2098 

.0494® 

.0516® 

.2160 

.1883 

Allen's  Result : 

Dependant 

KO 

KOrtc 

r\9 

Variable  I  Diap  7S76  7576  CDUM  7576  OROW 

PCM  .2640*  -.0360^  .OWO*  .•••*  2.5580^  .•***  -.0110 


CPCM  « (VMd  -  PayrolD/VShip 

*LBOPI  •  (Setae  -  materials  -  payrolls  -  aitaertising  - 
other  selling  expenses  -  0  &  A  -  dspreciotion) 

Significanoe  levels  are:  &  II,  b.  51,  c.  lOI. 
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CPCM  >  (VAdd-  PayrolD/VShip 


(3.4) 


LBOPI  >  (Sales  -  materials  -  payrolls  -  advertisins  -  (3.5) 

other  selling  expenses  -  G  &  A  -  depreciation) 

Equation  (3.4)  is  the  Census  definition  and  equation  (3.5)  is  the 
FTC  definition.  Note  that  none  of  the  variables  used  to  construct  the 
Census  definition  have  been  used  as  independent  variables  in  any  of 
the  four  models.  This  is  not  true  tor  the  FTC  dependent  variable  for 
at  least  two  independent  variables  have  been  used  in  its  derivation. 
First,  advertising  to  sales  is  used  directly.  Second,  capital  output  is 
present  in  the  guise  of  the  depreciation  variable  since  they  are 
assumed  to  be  highly  correlated.  This  correlation  stems  from  the 
fact  that  as  an  industry  accumulates  more  capital  the  total  amount 
of  depreciation  it  takes  on  its  accumulated  capital  will  also  increase. 

Besides  the  possibility  of  a  specification  error,  it  may  also  be 
that  some  of  the  inconsistency  in  results  arise  from  collinearity 
between  the  variables.  There  appears  to  be  many  statistically 
significant  interactions  involving  some  of  the  variables  as  discussed 
above.  One  of  the  procedures  which  can  be  used  to  tnreak  up 
collinearity  involves  increasing  the  niimbcr  of  observations  made  on 
the  population  (23:394).  The  comparisons  made  using  the  F  test 
suggest  there  is  little  difference  between  two  regressions  when  <me  or 
more  of  their  independent  variables  differ  in  their  data  source.  This 


result  infers  that  the  data  from  both  the  Census  and  FTC  data  bases 
can  be  pooled. 

The  results  of  some  of  the  possible  regressions  using  this  pooling 
technique  can  be  seen  in  Tables  3.6  and  3.7.  Table  3.6  regressicms  use 
only  the  Census  dependent  variable  (CPCM).  These  regression  are 
robust  in  the  sense  that  a  majority  of  the  coefficients  are  significant. 
The  goodness  of  fit  for  regression  6J  is  one  of  the  best  noted  in  all  the 
work  accomplished  for  this  thesis.  The  results  of  Table  3.7  are  much 
less  robust.  In  fact  the  Capital-Output  ratio  is  never  significant 
when  using  the  FTC  dependent  variable.  This  evidence  further 
indicates  a  need  to  look  carefully  at  the  structure  of  the  FTC 
dependent  variable  for  possible  alterations. 


Table  3.6:  Census  Pooled  Runs 
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Table  3.7:  FTC  Pooled  Runs 
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This  chapter  is  divided  into  two  sections.  The  first  offers  the 
major  findings  of  this  effort.  The  second  offers  some  suggestions  for 
further  research. 

Ma-tor  Findings 

The  results  of  the  foregoing  analysis  seem  to  indicate  that  the 
ability  of  FTC  and  Census  data  to  explain  the  profitability  of  an 
industry  or  LOB  are  remarkably  similar.  The  general  F  test 
discussed  in  Chapter  3  showed  conclusively  that  the  outcome  of  a 
regression  remains  relatively  stable  over  a  wide  range  of 
adjustments  in  the  four  models. 

The  comparisons  drawn  between  the  previous  work  of  Allen  (2) 
and  a  sample  of  the  regressions  performed  in  the  course  of  this 
study  showed  that  certain  elements  of  the  FTC  data  set  can  provide 
similar  results  to  those  reported  in  previous  work  which  used  Census 
data  exclusively. 

The  interpretation  of  some  of  the  coefficients  of  the  regressions 
was  made  difficult  by  the  presence  of  slight  to  moderate  collinearlty 
between  the  independent  variables.  This  suggested  at  least  one  use 
of  FTC  data.  Should  the  correlation  between  one  Census  variable  and 
another  be  high,  and  at  least  one  of  the  variables  has  an  FTC 
counterpart,  then  it  may  be  posable  to  reduce  the  overall 
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collin«arity  of  the  model  by  using  FTC  data  for  the  one  variable 
rather  than  Census  data. 

Under  certain  conditions,  the  analyst  may  pool  the  two  data 
sets  to  Increase  the  robustness  of  the  regression  results. 

The  possible  misspeciflcation  oi  the  FTC  dependent  variable  was 
noted. 

Recommendations  for  Further  Study 

1.  Testing  for  the  equivalence  of  regressions  which  have  the 
same  independent  variables  but  use  different  dependent  variables. 

2.  The  addition  of  other  FTC  variables  not  considered  in  this 
study  but  which  are  included  in  the  data  base. 

3.  The  use  of  an  alternative  Une  of  Business  capital  output 
measure  in  lieu  of  the  one  used  in  this  study. 

4.  Conduct  similar  analyses  of  the  four  different  models  using 
either  Ravenscraft's  Price-Cost>Margin  QNDPCM)  or  some  other 
specification  of  the  same  variable. 

5.  Combine  the  forthcoming  1977  FTC  database  with  the  current 
one  and  perform  a  similar  analysis  of  the  data  with  three  year 
averages. 


6.  Investigate  the  results  of  the  model  when  the  data  is  cut 
into  declining  and  increasing  cost  industries. 


APPENDIX  A:  Census  Enter 


program  CensusData 
IMPUCIT  NONE 

integer  SlC,NCO,ESTlto4,EST5to9,E3T10tol9,EST20to49 
integer  ESTS0to99,EST100to249,ESrr2S0to499,ESTS00to999 
integer  EST1000to2499,EST2S00orMore.Item 
double  precision  Employeeslthru4,Employecs5thru8 
double  precision  Payroll75,Payroll76,VAdd75,VAdd76 
double  precision  VShip7S,VShip76,6BVPA7S,6BVPA76 
double  precision  VShiplthru4,VShip5thru8,Advcr 
double  precision  VAdd76,VAdd75.VAddlthru4,VAdd5thru8 
double  precision  Exports, Imports, VShiplto4,VShipSto9 
double  precision  VShipl0tol9,VShip20to49 
double  precision  VShip50to99,VShip250to499,V8hip500to999 
double  precision  VShipl000to2499,VShip2500orMore 
double  precision  VShipl00to249 
character  Charln*! 

0PEN(1,P1LE»'CENSUS'  ,STATUS>*OLD’ ,  ACCESS* ‘SEQUENTIAL* , 
PORM>'PORMATTEO',POSITION«' APPEND', 
ACTION-'WRITE') 

SIC  >  0 
NCO  »  0 

VShiplthru4  >  0.0 
VShipSthru8  *0.0 
VAddlthru4  *  0.0 
VAddSthru8  <0.0 
ESTlto4  *  0 
EST5to9  ■  0 
EST10tol9  «  0 
EST20to49  *  0 
EST50to99  ■  0 
EST100to249  *  0 
EST290to499  *  0 
EST500to999  *  0 
EST1000to2499  «  0 
EST2500orMore  ■  0 
VShiplto4  >  0.0 
VShipSto9  *  0.0 
VShipl0tol9  *  0.0 
VShip20to49  -  0.0 
VShlp60to99  *  0.0 
VShipl00to249  *  0.0 
VShip250to499  >0.0 
VShip500to999  -  0.0 
VShipl000to2499  -  0.0 


A-  I 


VShip2S00orMorc  -  0.0 
Imports  «  0.0 
Exports  »  0.0 
Advsr  s  0.0 
PayroU76  *  0.0 
Payrolls  -  0.0 
VAdd76  >  0.0 
VAdd75  >0.0 
VShip76  ■  0.0 
VShip75  >  0.0 
GBVPA76  <  0.0 
GBVFA7S  >  0.0 
Item  >  0 

write(*,*)  'Please  enter  the  four  digit  SIC  code  (l):  ' 
read(»  »)  SIC 

write(*,”)  ‘Please  enter  Number  of  Companies:  ' 
read(»  *)  NCO 

write(*,*)  'Please  enter  Payroll  for  1976:  ' 
read<*,*)  Payroll76 

write<» ,*)  'Please  enter  PayroU  for  1975:  ' 
read(»,*)  Payroll75 

writc(”,*)  'Please  enter  Value  Added  fay  Manufacture  for  1976:' 
read(»,*)  VAdd76 

write<*,»)  ‘Please  enter  Value  Added  by  Manufacture  for  1975:’ 
read(»,*>  VAdd7S 

write(*,*)  'Please  enter  Value  of  Shipments  for  1976:  ' 
read<*,»)  VShip76 

write(*,*)  'Please  enter  Value  of  Shipments  for  1975:  ' 
read(»,*)  VShip75 

write<*,”)  'Please  enter  Gross  Value  of  Fixed  Assets  for  1976:' 
read<«  *)  GBVFA76 

write(*,*)  'Please  enter  Gross  Value  of  Fixed  Assets  for  1975:' 
readf*,*)  GBVFA75 

writc<*,*)  'Please  enter  Value  of  Shipments  for  the  4' 
write<*,*)  'largest  companies  (2):  ‘ 
read<*,*)  VShiplthrud 

write(*,*)  'Please  enter  Value  of  Shipments  for  the  next  4' 
write<*,*)  'largest  companies:  ' 
read(*,*)  VShipSthruS 

write(*,*)  'Please  enter  Number  of  Employees  for  the  4' 
write(*,*)  'largest  companies:  ' 
read(*,*)  Employeeslthru4 

write(*,*)  'Please  enter  Number  of  Employees  for  the  next  4' 
write(*,*)  'largest  companies:  ' 
read(*,*)  EmployeesSthruS 

writeC*,*)  'Please  enter  Value  Added  by  manufacture  for  the  4' 
write(*,*)  'largest  companies:  ' 
read(*,*)  VAddlthru4 


writf(*,*)  'Please  enter  Value  Added  by  manufacture  for  the* 
writeC*.*)  'next  4  largest  companies:  ' 
read(*  •)  VAddSthruS 

write<*,*)  'Please  enter  Advertising  Input  into  the  Industry' 
write<*,*)  'located  at  row  73.0200  of  Input-Output  Table  (4):  ' 
read(*,*)  Adver 

write(*,*)  'Please  enter  Exports  for  industry  located  in  column' 
writeC*,*)  '94.0000  of  Input-Output  Table  (3):  ' 
read(*,*)  Exports 

write(*,*)  'Please  enter  Imports  for  industry  located  in  column' 
write<*,*)  *95.0000  of  Input-Output  Table  (3):  ' 
read(*,*)  Imports 

write(*,*)  'Please  enter  the  following  Number  of  ' 

write<*,*)  'Establishments  figures' 

write(*,*)  'according  to  the  number  of  employees  (5):  ' 

writeC*,*)  '1  to  4  employees:  ' 

read<»,*)  ESTlto4 

write(*,*)  '5  to  9  employees:  ' 

read<*,»)  EST5to9 

write<*,*)  '10  to  19  employees:  ' 

read(».*)  EST10tol9 

write(*,*)  '20  to  49  employees:  ' 

read(*,*)  EST20to49 

write(*,*)  '50  to  99  employees:  * 

read(*,*>  ESTSOto99 

write(*,*)  '100  to  249  employees:  ' 

read(*,*)  EST100to249 

write(*,*)  '250  to  499  employees:  ' 

read(*,*)  EST250to499 

write<*,*)  '500  to  999  employees:  ' 

read(»,*)  EST500to999 

wrlte<*,*)  '1,000  to  2,499  employees:  ' 

read(*,*)  EST1000to2499 

WTite(*,*)  '2,500  employees  or  more:  ' 

read(*,*)  EST2500orMore 

write(*,*)  'Please  enter  the  following  Value  of  Shipment' 

write(*,*)  'figures  according  to  the  number  of  employees  (5):' 

write(*,*)  '1  to  4  employees:  ' 

read(*,*)  VShiplto4 

wrlte(*,*)  '5  to  9  employees:  ' 

read<*,*)  VShip5to9 

write(*,*)  '10  to  19  employees:  ' 

read<*,*)  VShipl0tol9 

WTite<*,*)  '20  to  49  employees:  ' 

read(*.*)  VShip20to49 

write(*,*)  '50  to  99  employees:  ' 

read(*,*)  VShip50to99 

write<*,*)  '100  to  249  employees:  ' 


rcad(«  «)  VShipl00to249 
writ«(*,*)  '250  to  499  employees:  ' 
read(*  *)  VShlp2S0to499 
write<*,*)  '500  to  999  employees:  ' 
read(*  *)  VShip500to999 
write(*,*)  '1,000  to  2,499  employees:  ' 
rssd(«,«)  VShipl000to2499 
write(*,*)  '2,500  employees  or  more:  * 
read(*,*)  VShip2500orMore 

write(*,*)  'You  are  now  ready  to  validate  the  data.' 

10  write(»,10l)  SIC 

write<*,102)  NCO 
write(»,103)  Payroll76 
write(*,104)  Payroll75 
write(*,105)  VAdd76 
write<«,106)  VAdd75 
write(»,107)  VShlp76 
write(*,108>  VShlp75 
write(»,109)  GBVPA76 
write<».110)  GBVFA75 


101  format('(l)  SIC  code:  '.18) 

102  format('(2)  Number  of  Companies:  ',18) 

103  format<'<3)  PayroU  for  1976:  •,P8.2) 

104  format('(4)  Payroll  for  1975:  ',P8.2) 

105  format('(5)  Value  Added  by  Manufacture  1976:  ',F8.2) 

106  format('(6)  Value  Added  by  Manufacture  1975:  ',P8.2) 

107  format('(7)  Value  of  Shipments  for  1976:  ',P8.2) 

108  format('(8)  Value  of  Shipments  for  1975:  ',P8.2) 


109  format('(9)  Gross  Value  of  Fixed  Assets  1976:  ',P8.2) 
no  format('(lO)  Gross  Value  of  Fixed  Assets  1975:  ',F8.2) 
wrlte<*,*) 

write(*,*)  'Are  all  of  these  values  correct  (Enter  y  or  n):  ' 
read(*,'(Al)')  Charin 

lF(CharIn.ne.  'Y').and.(CharIn.ne. 'y')  then 
write(*,*)  'Please  enter  the  number  of  the  item  in  error:' 
read(*,*)  Item 

write(*,*)  'Please  enter  the  new  value:  ' 

IPdtem.eq.l)  then 
read(*,»)  SIC 
ELSElP(ltem.eq.2)  then 
read(»,»)  NCO 
ELSElP(Item.eq.3)  then 
read(*,*)  Payroll76 
CLSEIP(ltem.eq.4)  then 
read(*,*)  PayroI175 
CLSEIP(Item.eq.5)  then 
read<*,»)  VAdd76 
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ELSEIFdtcm.cq.b)  then 
readC*  •)  VAdd75 
EL8EIP(Itein.eq.7)  then 
rcad(*,*)  VShip76 
ELSEIFdtem.cq.B)  then 
read<»  »)  VShip75 
ELSEIF(ltem.cq.9)  then 
read(*  •)  6BVPA76 
ELSQPdtem.eq.lO)  then 
read(*,»)  GBVPA75 

ELSQPdtem.U.O.or.dtem.ft.lO)  then 
write(*,*)  'Invalid  Item  Number  -  Try  Again* 

ENDIP 
goto  10 
tMOIP 

write(*,*)  '  Value  of  Shipments  ' 

write(*,iil)  VShiplthruA 

write(*.n2)  VShip6thru8 

write(*,*)  '  Number  of  Employees' 

write(*,113)  Employeeslthrud 

write(*.lU)  EmployeesSthruS 

write<*,*)  '  Value  Added  ' 

write(*,llS)  VAddlthruA 

write(*,116)  VAddSthruS 

format('(l)  4  largest  companies:  ',P8.2) 

format('(2)  Next  4  largest  companies:  ',P8.2) 

format('(3)  4  largest  companies:  ',P8.2) 

format<'(4)  Next  4  largest  companies:  ',F8.2) 

format('(5)  4  largest  companies:  ',F8.2) 

format('(6)  Next  4  largest  companies:  ',P8.2) 

write<*,*) 

write(*,*)  'Are  all  of  these  values  correct  (Enter  y  or  n):  ' 
read(*,'(Al)')  Charin 

lF(CharIn.nc.'Y').and.(CharIn.nc.'y'}  then 
write(*,*)  'Please  enter  the  number  of  the  item  in  error: 
read(*,*)  Item 

write(*,*)  'Please  enter  the  new  value:  ' 

IPdtem.cq.l)  then 
read(*,*)  VShiplthru4 
ELSEIFdtem.eq.2)  then 
read(*,*)  VShip6thru8 
ELSEIPdtem.eq.S)  then 
read(*,*)  Employeeslthru4 
ELSEIF(ltem.eq.4)  then 
read(*,*)  Employecs5thru8 
ELSEIPCltem.eq.S)  then 
readC,*)  VAddlthru4 
ELSEIF(ltem.eq.6)  then 


{ 

i 

I 


rcad(*,*)  VAddSthruS 
ELSEIFdttm.lt.D.or.dtcm.ttA)  then 
wrlte(*,*)  'Invalid  Item  Number  -  Try  Again' 

ENDIP 
goto  20 
ENDIF 

30  write(».») 

write(*,117)  Adver 
write<*,118)  Exports 
write(*,n9)  Imports 

117  format('(l)  Advertising  (row  73.0200):  ‘,P8.2) 

118  format('(2)  Exports  (column  94.0000):  ‘,P8.2) 

119  format('(3)  Imports  (column  95.0000):  ',P8.2) 

write(*,*) 

writc(*,*)  'Arc  all  of  these  values  correct  (Enter  y  or  n):  ' 
rcad(*,'(Al)')  CharIn 

IF(CharIn.nc.  'Y').and.(CharIn.nc.  'y')  then 
writc(*,*)  'Please  enter  the  number  of  the  item  in  error:' 
readC",*)  Item 

write(*,*)  'Please  enter  the  new  value:  ' 

IPdtem.cq.l)  then 
read(*,*)  Adver 
ELSEIP(ltcm.cq.2)  then 
rcad(*,*)  Exports 
ELSEIF(Item.cq.3)  then 
read(*,*)  Imports 

ELSElP(ltcm.lt.l).or.(Item.gt.3)  then 
writc(*,*)  'Invalid  Item  Number  -  Try  Again' 

ENDIF 
goto  30 
ENDIF 
writeC*,*) 

40  writc(*,*)  'Number  of  Establishments' 
writc(*.120)  ESTlto4 
writc(*,12l)  EST5to9 
writc(*,122)  ESTi0tol9 
writc(*.123)  EST20to49 
writc(*,i24)  E8T50to99 
writc(*,12S)  EST100to249 
writc(”,126)  EST250to499 
writ#(*,127)  EST500to999 
writc(*.128)  EST1000to2499 
write(«,129)  EST2S00orMorc 
writc(*,*)  'Value  of  Shipments' 
writc(*.130)  VShiplto4 
write(»,13l)  VShip5to9 
writc(*,132)  VShipl0tol9 
writc(*,133)  V8hip20to49 
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write(»,lM)  V8hip50to99 
writ«(»,135)  VShipl00to249 
wrltc<*,136)  V8hip2S0to499 
writ«(*,137)  VShili600to999 
writi(*.138)  VShipl000to2499 
writ«(*,139)  VShip2S00orMorc 
forniat('(l)  1  to  4  •mploycM:  ',IB) 

format(*(2)  5  to  9  cmploytcs:  *,18) 

format('(3)  10  to  19  employees;  ',18) 

format('(4)  20  to  49  employees:  *,18) 

format('(5)  SO  to  99  employees;  *,18) 

format('(6)  100  to  249  employees;  *,18) 

format('(7)  250  to  499  employees:  ',18) 

format('(8)  500  to  999  employees:  ',18) 

format('(9)  1000  to  2499  employees;  ',18) 
format('(lO)  2,500  employees  or  more:  ',18) 

format('(ll)  1  to  4  employees:  ',P8.2) 

format('(12)  5  to  9  employees:  ',F8.2) 

format('(l3)  10  to  19  employees;  ',P8.2) 

format('(l4)  20  to  49  employees:  ',P8.2) 

format('(15)  50  to  99  employees:  ',P8.2) 

format('(l6)  100  to  249  employees:  ',P8.2) 

format('(l7)  250  to  499  employees;  ',P8.2) 

format('(18)  500  to  999  employees:  ',F8.2) 

format('(l9)  1000  to  2499  employees:  ',F8.2) 

format('(20)  2,500  employees  or  more:  ',P8.2) 
wrlte(*,*)  'Are  all  of  these  values  correct  (Enter  y  or  n):  ' 
read(*,'(Al)')  Charin 

lF(CharIn.ne. 'Y').and.(CharIn.ne. 'y')  then 
write(*,*)  'Please  enter  the  number  of  the  item  in  error: 
read(*,*)  Item 

write<*,*)  'Please  enter  the  new  value:  ‘ 

IP(Item.eq.l)  then 
read(»,»)  ESTlto4 
ELSElP(ltem.eq.2)  then 
read(*,*)  EST5to9 
ELSDFdtem.eq.S)  then 
read<*,»)  EST10tol9 
ELSIIP(ltem.eq.4)  then 
read(*,*)  EST20to49 
ELSEIF(ltem.eq.S)  then 
readC*,*)  EST50to99 
ELSClP(Item.eq.6)  then 
read(*,«)  EST100to249 
ELSEIP(Item.eq.7)  then 
read(*,*)  EST2SOto499 
ELSIIP(Item.eq.8)  then 
read(*,«)  EST500to999 
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ELSEIP(ltcm.cq.9)  then 
rtadC*  *)  EST1000to2499 
EL8EIP(ltcm.cq.lO)  thtn 
rMd(*,*)  EST2500orMor* 

ELSEIFOtcm.tq.n)  then 
reed(*,*)  V9hiplto4 
CLSEIP(ltem.eq.l2)  then 
reed(*,*)  V8hlp6to9 
£LSEIP(ltem.eq.l3)  then 
read(*,'')  VShiplOtol9 
ELSEIFdtem.eq.M)  then 
reed(*,*)  VShip20to49 
ELSEIFdtem.eq.lS)  then 
reed(*,*)  VShipSOto99 
CLSElP(ltem.eq.l6)  then 
read(*,*)  VShiplOOto249 
ELSElF0tem.eq.17)  then 
read(*  *)  VShip2S0to499 
ELSEIP0tem.eq.18)  then 
read(*,*)  VShip500to999 
ELSElP0tem.eq.l9)  then 
read(* ,*)  VShipl000to2499 
ELSElP0tem.eq.2O)  then 
read(*,*)  VShlp2S00orMore 
£LSEIPOtem.lt.l).or.Otcm.ft.20)  then 
write<*,*)  'Invalid  Item  Number  -  Try  Afain' 

ENOIP 
foto  40 
ENDIF 

■write(*,*)  'Do  you  suspect  an  mrror  in  the  record?  (y  or  n):' 
rcad(*,'(Al)')  Charln 
lP(Charln.cq. 'Y').or.(CharIn.cq.'y')  then 
write(*,*)  'Since  you  arc  unsure  of  an  item  entered  ' 
writc(*,*)  'previously,  you  will  now  go  to  the  top  of  ' 
writc<*,*)  'this  record  without  losing  any  of  the  data  you' 
write(*,*)  'have  put  in.' 

write<*,*)  'If  you  find  an  error,  correct  as  before.' 
gotolO 
ENDIF 

Mrritc(*,*)  'Storing  Data' 
write(*,*) 

writcd.lOO)  SIC,NCO,Payroll76,PayroU75, 
VAdd76,VAdd75,VShip76,VShip75,QBVPA76,QBVPA75, 
VShiplthru4,VShip5thru8,Employecslthru4,Emplayces5thru8, 
VAddlthru4,VAdd5thru8,Exports,Imports,Adver, 
ESTito4,ESTSto9,EST10tol9,EST20to49,EST50to99.EST100to249, 
EST2S0to499,ESTS00to999,EST1000to2499,EST2S00orMorc, 
VShlplto4,VShip6to9,VShlpl0tOl9,V8hip20to49,VShlp60to99, 


I 


VShiplOOto249,VShip250to499,VShipSOOto999,VShiplOOOto2499, 

VShip2500orMort 

forinat(X4,I5,4P8.iy.2P9.1,2P8.iy,2P7.1,2P5.1,2P6.V, 
2P10.1,P7.1,10I4y,10P8.l) 
r»ad(*.'(Al)')  Charin 

IP  (Charln.cq.'Y').or.(CharIn.cq.‘y*)  then 
goto  1 
ENOIP 
stop 


program  Enter  Data 
IMPUCIT  NONE 

double  precision  PTCCode.ParticipationRatio 

double  precision  CoverageRatio,DecimalValue 

double  precision  SpecialiaationRatio,PPEAcqdS,PPEAcqd5TolO 

double  precision  PPEAcqdl0To20,PPEAcqd20Plus 

double  precision  LcftSide,RightSide 

integer  CensusCodel,CensusCode2,CensusCode3,CensusCode4 

integer  CensusCode5,NumberCompanies,TotalSalesAndTransfers 

integer  MediaAdvcrtisingExpenseTraceable 

integer  OtherSellingExpenseTraceable 

integer  GeneralAndAdminExpenseTraceable 

integer  McdiaAdvertisingExpcnseNonTraceable 

integer  OtherSellingExpenseNonTraceable 

integer  GeneralAndAdminExpenseNonTraceable 

integer  GrossPlantPropEquipTraceablc 

integer  InventoriesThisYearTraceable 

integer  GrossPlantPropEquipNonTraceable 

integer  InventoriesThisYearNonTraceable 

integer  Payrolls,MaterialsUsed,CostOfCompanyRandD 

integer  IntegerValue 

integer  InventoriesLastYear Tr a  ceable 

integer  InventoriesLastYearNonTraceable.ItemNumber 

integer  Operatinglncome 

character  CHARIN*! 

OPEN(l,FILE-'FTC7S',STATU^'OLD\ACCESS-'SEQUENnAL', 
FORM-'FORMATTED'  .POSITION-*  APPEND' , 

ACnON-’WRITE') 

PTCCode  «  00.00 

ParticipationRatio  -0.0 

CoverageRatio  ■  0.0 

DeeimalValue  «  0.0 

SpeclallzationRatio  «  0.0 

CcnsusCodel  •  0 

CensusCode2  -  0 

CensusCode3  -  0 

CensusCoded  •  0 

CensusCodeS  ■  0 

NumbcrCompanics  ■  0 

TotalSalesAndTransfers  •  0 

MediaAdvertisingEzpenseTraceable  ■  0 

OtherSellingExpenseTraceable  ■  0 

GeneralAndAdminExpenseTraceable  ■  0 

MedlaAdvcrtisingExpenseNonTraceable  •  0 

OtherSellingExpenseNonTraceable  «  0 


OthcrScllingExpcnscNonTraecabl*  •  0 

GencralAndAdminExpcnscNonTraccablc  >  0 

GrossPlantPropEquipTraccablc  =  0 

InvantoricsThisYcarTraccabl*  «  0 

GrossPlantPropEquipNonTracaable  >  0 

InvcntoricsThisYcarNonTraccabIc  ■  0 

Payrolla  «  0 

MatcrialsUscd  >  0 

CostOfCompanyRandD  *  0 

LcftSid*  «  0 

RightSidc  »  0 

PPEAcqdS  *  0 

PPEAcqdSTolO  «  0 

PPEAcqdl0To20  -  0 

PPEAcqd20Plus  «  0 

IntcgerValuc  >  0 

InvcntoricsLastYearTraccablc  ■  0 
InwntoricsLastYcarNonTraccable  »  o 
Operatlnglncomc  -  0 
ItamNumbar  ■  0 

writa(*,*)  'Please  enter  the  4  digit  PTC  code  (XX. XX):  ' 
read(*,*)  PTCCodc 

write<*,*)  'Please  enter  the  primary  CENSUS  code;  ' 
rcad(*,*)  CcnsusCodcl 

write(*,*)  'Are  there  any  more  Census  codes  to  enter  (Y  or  N)’ 
rcad(*.'(Al)')  CHARIN 

lf((CHARlN.EQ.  'Y').0R.(CHAR1N.EQ. 'y'))  then 
write<*,*)  'Please  enter  the  second  code:' 
read(*,*)  CensusCode2 

write<*,*)  'Please  enter  the  third  code  (Return  if  sero):' 
read(*,*)  CensusCodeS 

write(*,*)  'Please  enter  the  fourth  code  (Return  if  zero):' 
read(*,*)  CensusCoded 

write(*,*)  'Please  enter  the  fifth  code  (Return  if  zero);' 
read(*,*)  CensusCodeS 
endif 

write(*,*)  'Please  enter  the  number  of  companies;' 
read(*,*')  NumberCompanies 

write(*,*)  'Please  enter  the  Participation  Ratio  XXX.X' 
read(*,”)  ParticipatlonRatio 

write(*,*)  'Please  enter  the  Specialisation  Ratio  XXX.X' 
read(*,*)  SpecialisationRatio 
write(*,*)  'Please  enter  the  Coverage  Ratio  XXX.X' 
read(*,*)  CoverageRatio 

write(*,*)  'Please  enter  Total  Sales  and  Transfers' 
write(*,*)  '(DaU  item  No.6);' 


rMd(*,*)  TotalSalcsAndTransfcrs 

writc(*,*)  'Please  enter  Media  Advertising  Expense  -  ‘ 

write(*,*)  'Traceable  (Data  item  No.9):' 

read(*,*)  MediaAdvertisingExpenseTraceable 

write<*,*}  'Please  enter  Other  Selling  Expense  -  Traceable' 

write(*,*)  '(Data  item  No.  10):' 

read(*,*)  OthcrSellingExpenscTraccable 

write(*,*)  'Please  enter  General  And  Admin.  Expense  -' 

write(*,*)  'Traceable  (Data  item  No.  11):' 

readC*,*)  GeneralAndAdminExpenseTraceable 

write(*,*)  'Please  enter  Media  Advertising  Expense  -  ' 

write<*,*)  'Non-Traceable  (Data  item  No.  14):' 

read(*,*)  MediaAdvertisingExpenseNonTraceable 

writc(*,*)  'Please  enter  Other  Selling  Expense  -  ' 

write(*,*)  'Non-Traceable  (Data  item  No.lS):' 

read(*,*)  OtherSellingExpenseNonTraceable 

write(*,*)  'Please  enter  General  And  Admin.  Expense  -  ' 

write(*,*)  'Non-Traceable  (Data  item  No.  16):' 

read(*,*)  GeneralAndAdmlnExpenseNonTraceable 

write(*,*)  'Please  enter  Operatingincomc  (Data  item  No.  18):' 

read(*,*)  Operatingincome 

write(*,*)  'Please  enter  Gross  Plant  Property  and  Equipment  - 

write(*,*)  'Traceable  (Data  item  No.  19):' 

readC*,*)  GrossPlantPropEqulpTraceable 

write(*,*)  'Please  enter  Inventories  This  Year  -  Traceable' 

write(*,*)  '(Data  item  No.22);' 

read(*,*)  InventoriesThisYearTraceable 

write(*,*)  'Please  enter  Gross  Plant  Property  and  Equipment 
write(*,*)  'Non-Traceable  (Data  item  No. 25):' 
read(*,*)  GrossPlantPropEquipNonTraceable 
write(*,*)  'Inventories  This  Year  Non-Traceable' 
write(*,*)  '(Data  item  No.28);' 
read(*,*)  InvcntoriesThisYearNonTraceable 
write(*,*)  'Please  enter  Payrolls  (Data  item  No.32):' 
read(*,*)  Payrolls 

writc(*,*)  'Please  enter  Materials  Used  (Data  item  No. 33):' 
read(*,*)  MaterialsUsed 

write(*,*)  'Please  enter  the  Cost  of  Company  R  and  D  ' 
write(»,*)  '(DaU  item  No.37):' 
read(*,*)  CostOfCompanyRandD 

write(*,*)  'Please  enter  the  Plant  Prop.,  and  Equipment  Acqd' 
write(*,*)  'Last  5  years  (Data  item  No.48)  -Left  hand  value:' 
read(*,*)  Leftside 

write(*,*)  '(Data  item  No.48)  -Right  hand  value:' 
read(*,^  RightSide 


PPEAcqdS  -  (Leftside  *  RightSidc)/2 


RightSide  *0.0 
Leftside  *  0.0 

write(*,*)  'Please  enter  the  Plant  Prop.,  and  Equipment  Acqd* 
write<*,*)  *5  -  10  years  ago  (Data  item  No.49) 

'-Left  hand  value:' 
read(*,*)  Leftside 

write(*,*)  '(Data  item  No.49)  -Right  hand  value:' 
read(*,*)  RightSide 

PPEAcqdSTolO  -  (LeftSide  ♦  RightSide)/2 
RightSide  »  0.0 
UftSide  »  0.0 

write(*,*)  'Please  enter  the  Plant  Prop.,  and  Equipment  Acqd' 
write(*,*)  '10  -  20  years  ago  (Data  item  No. 50)  ', 

'-Left  hand  value:' 
read(*,*)  LeftSide 

write(*,*)  '(Data  item  No.SO)  -Right  hand  value:' 
read(*,*)  RightSide 

PPEAcqdl0To20  *  (UftSide  ♦  RightSide)/2 
RightSide  3  0.0 
UftSide  «  0.0 

write(*,*)  'Please  enter  the  Plant  Prop.,  and  Equipment  Acqd' 
write(*,*)  *20  years  ago  (Data  item  No.51)  -Left  hand  value: 
read(*,»)  UftSide 

write(*,*)  '(Data  item  No.Sl)  -Right  hand  value:' 
read(*,*)  RightSide 

PPEAcqd20Plus  >  (UftSide  4  RightSide)/2 
RightSide  *  0.0 
UftSide  >  0.0 

write(*,*)  'Please  enter  Inventories  Ust  Year  -  Traceable' 
writeC*,*)  'Previous  Year  (DaU  item  No.22):' 
read(*,*)  InventoriesUstYearTraceable 
write(*,*)  'Please  enter  Inventories  Ust  Year  -  ' 
write(*,*)  'Non-Traceable  Previous  Year  (Data  item  No.2B):' 
read(*.*)  InventoriesUstYearNonTraceable 
writeC*,*)  '(1)  PTC  Code:  '.FTCCode 
write(*,*)  '(2)  Participation  Ratio:  ',ParticipationRatio 
write(*,*)  '(3)  Specialisation  Ratio:  '.SpecialisationRatio 
'WTitc(*,*)  '(4)  CoverageRatio:  ',CoveragcRatio 
write(*,*)  '(5)  Census  Codel:  ',CensusCodel 
write(*,*)  '(6)  Census  Code2:  ',CensusCade2 
write(*,*)  '(7)  Census  Code3:  ',CensusCodeS 
writeC*,*)  '(8)  Census  Code4:  ',CensusCode4 
writs(*,*)  '(9)  Census  CodeS:  ',CensusCode5 
write(*,*)  '(10)  Number  Companies:  ',NumberCompanies 
write(*,*)  '(11)  Total  Sales  And  Transfers:  ', 
TotalSalesAndTransfers 


writt(*,*)  '(12)  Media  Advertising  Expense  -  Traceable; 

MediaAdvcrtisingExpenseTraccable 
writeC*,*)  '(13)  Other  Selling  Expense  -  Traceable:  ', 
OtherSellingExpenseTraceable 
write(*.*)  '(14)  General  And  Admin  Expense  -  Traceable:  '. 

GeneralAndAdminExpenseTraceable 
write(*,*)  '(15)  Media  Advertising  Expense  >  NonTraceable;  ' 
MediaAdvcrtisingExpenseNcmTraceable 
write(*,*)  '(16)  Other  Selling  Expense  -  NonTraceable:  ', 
OtherSellingExpenseNonTraccable 
write(*,*)  '(17)  General  And  Admin  Expense  -  NonTraceable 
GeneralAndAdminExpenseNonTraceable 
write(*,*)  '(18)  Operatinglncomc:  '.Opcratingincome 
write(*,*)  'Are  any  of  these  values  in  error?  (Y  or  N)' 
read(*,'Ul)')  CHARIN 

if((CHARlN.eq.‘Y').or.(CHARIN.eq.‘y‘))  then 
write(*,*)  'Please  enter  the  number  of  the  item  in  error: 
read(*,*)  ItemNumber 
write(*,*)  ‘New  Data  Value:  ' 
if(ltemNumber.le.4)  then 
read(*,*)  DecimalValue 
elseifdtemNumber.gt.d)  then 
read(*,*)  IntegerValue 
endlf 

if(ItemNumber.eq.l)  then 
PTCCode  ■  DecimalValue 
elseif(ItemNumber.eq.2)  then 
ParticipationRatio  ■  DecimalValue 
elscifdtemNumbcr.eq.S)  then 
SpecialixationRatio  >  DecimalValue 
elscifdtemNumber.eq.d)  then 
CoverageRatio  ^  DecimalValue 
elseifdtemNumber.eq.S)  then 
CensusCodel  »  IntegerValue 
elseifdtemNumber.eq.S)  then 
CensusCode2  •  IntegerValue 
elscifdtemNumbcr.eq.y)  then 
CensusCodeS  ■  IntegerValue 
elseif (ItemNumber. eq. 8)  then 
CensusCoded  >  IntegerValue 
elseif  (ItemNumber.  eq.  9)  then 
CensusCodeS  •  IntegerValue 
elseif(ltemNumber.eq.lO)  then 
NumberCompanies  »  IntegerValue 
elseifdtcmNumber.eq.ll)  then 
TotalSalesAndTransfers  -  IntegerValue 


clscif(ltcmNuinbcr.cq.l2)  then 
MediaAdvertisingExpenseTraceable  -  IntegerValue 
elscif(ltemNuniber.cq.l3)  then 
OthsrScllingExpenMTraccabl*  s  IntegerValue 
elseif (ItemNumber .  eq .  14)  then 
GeneralAndAdminExpenseTraceable  ■  IntegerValue 
eUeif(ltemNumber.eq.lS)  then 
McdiaAdvcrtisingExpenseNonTraceable  «  IntegerValue 
elseif  (ItemNumber.  eq.  16)  then 
OtherScllingExpenscNonTraceablc  >  IntegerValue 
elseif(ltemNumbcr.eq.l7)  then 
GeneralAndAdminExpenseNonTraceable  ■  IntegerValue 
elseif  (ItemNumber.  eq.  18)  then 
Operatinglncome  >  IntegerValue 
endif 
goto  100 
endif 

write(*,*)  '(19)  Gross  Plant  Property  and  Equipment  - 
'Traceable:  ‘  .QrossPlantPropEqulpTraceable 
write(*,*)  '(20)  Inventories  This  Year:  ', 
InventoriesThisYearTraceablc 
write(*,*)  '(2l)  Gross  Plant  Property  and  Equipment  -  ', 
'NonTraceable:  ' ,GrossPlantPropEquipNonTraceable 
write(*,*)  '(22)  Inventories  This  Year  -  NonTraceable:  ', 
InventoriesThisYearNonTraceable 
write(*,*)  '(23)  Payrolls:  '.Payrolls 
write(*,*)  '(24)  Materials  Used:  '.MaterialsUsed 
write(*,*)  '(25)  Cost  Of  Company  R  and  D:  '.CostOfCompanyRandD 
write(*,*)  '(26)  Plant  Prop.,  and  Equipment  Acqd'. 

'Last  5  Years:  '.PPEAcqdS 

write(*,*)  '(27)  Plant  Prop.,  and  Equipment  Acqd’, 

'5*10  Years  Ago:  ',PPEAcqd5TolO 
write(*,*)  '(28)  Plant  Prop.,  and  Equipment  Acqd  10-20  ’, 

'Years  Ago:  ',  PPEAcqdl0To20 
write(*,*)  ’(29)  Plant  Prop.,  and  Equipment  Acqd  ’, 

'20  *  Years  Ago:  ',PPEAcqd20Plus 
write(*,*)  '(30)  Inventories  Last  Year  -  Traceable'. 

InvcntoriesLastYcarTraccable 
write(*,*)  '(31)  Inventories  Last  Year  -  Non-Traceable', 
InventorlesLastYearNonTraceable 
writeC",*)  'Are  any  of  these  \^lues  in  error?  (Y  or  N)' 
read(*,'(Al)')  CHARIN 

if((CHARIN.eq.'Y').or.(CHARIN.eq.'y'))  then 
write(*,*)  'Please  enter  the  number  of  the  item  in  error;  ' 
read(*,*)  ItemNumber 
write(*,*)  'New  Data  Value:  ’ 


if(ItemNumbcr.le.25)  thm 
read(*,*)  IntegerValue 

elseif (itemNumber .  gt .  25 ) .  and .  (itemNu  mber .  le .  29)  then 
rcadC*,*)  OecimalValue 
elseif  (ItemNumber.  gt.  29)  then 
read(*,*)  IntegerValue 
endif 

if(ltemNumber.eq.l9)  then 
GrossPlantPropEquipTraceable  *  IntegerValue 
elseif  (ItemNumber.  eq.  20)  then 
InventoriesThisYearTraceable  =  IntegerValue 
elseif(ItemNumber.eq.2l)  then 
GrossPlantPropEquipNonTraceable  s  IntegerValue 
elseif(ltemNumber.eq.22)  then 
InventoriesThisYearNonTraceable  •  IntegerValue 
elseif(ltemNumber.eq.23)  then 
Payrolls  -  IntegerValue 
elseif(ItemNumber.eq.24)  then 
MaterialsUsed>  IntegerValue 
elseif(ltemNumber.eq.2S)  then 
CostOfCompanyRandO  «  IntegerValue 
elaeif(ltemNumber.eq.26)  then 
PPEAcqdS  *  OecimalValue 
elseif(ltemNumber.eq.27)  then 
PPEAcqdSTolO  >  OecimalValue 
elseif(ltemNumber.eq.28)  then 
PPEAcqdl0To20  >  OecimalValue 
elseif  (ItemNumber.  eq.  29)  then 
PPEAcqd20Plus  »  OecimalValue 
elseif(ltemNumber.eq.30)  then 
InventoriesLastYearTraceable  *  IntegerValue 
elseif(ltemNumber.eq.3l)  then 
InventoriesLastYearNonTraceable  ■  IntegerValue 
endif 
goto  200 
endif 

OUTPUT  RECORD  TO  FILE 

write(*,*)  'Outputting  record  to  file' 

write(l,300)  PTCCode,CensusCodel,CensusCode2,CensusCode3, 
CensusCodc4  ,CensusCode5  ,NumberCompanies,PartlcipationRatio, 
SpeciaUaationRatio,CoverageRatio,TotalSalesAndTransfers, 
MediaAdvcrtisingExpcnseTraceable, 
MediaAdvcrtisingEzpenseNonTraceable, 
OtherSellingExpenseTraceablc, 
OtherScllingExpenseNonTraMable, 
OeneralAndAdminExpenseTraceable, 


GencralAndAdminExpenseNonTraceable, 

Operatinglncome, 

GrossPlantPropEquipTraceable, 

GrossPlantPropEquipNonTraceable, 

InventoriesThisYearTraceable, 

InvcntoricsThisYearNonTraceablc, 

InvantoriesLaatYcarTraceable, 

InventoriesLastYearNonTraceable, Payrolls, MaterialsUsed, 

CostOfCompanyRandD,PPEAcqd5,PPEAcqd5TolO,PPEAcqdlOTo20, 

PPEAcqd20Plus 

FORMAT<P5.2.5I5,I2,3F5.1.19y,717y,718,19,18,/,4P4.l) 
read(*.'(Al)')  CHARIN 

if((CHARIN.eq.'Y').or.(CHARIN.eq.*y’»  then 
goto  1 
endif 
end 


APPENDIX  C:  Census  Build 


program  CcnsusBuild 
IMPUCIT  NONE 

integer  SIC,NCO,ESTlto4,EST5to9,EST10tol9,EST20to49 

integer  EST50to99,EST100to249,EST2S0to499,ESTS00to999 

integer  EST1000to2499,EST2S00orMore,Item,StartNumber 

integer  PirstPass,TtlEstablishments,lncrementEst , Pound 

double  precision  Employeeslthru4,Employees5thru8 

double  precision  Payroll75,Payroll76,VAdd75,VAdd76 

double  precision  VShip75,\^hip76,VShip77,VShip72 

double  precision  GBVFA7S,GBVPA76,VShiplthru4,VShip5thru8 

double  precision  Adver,VAddithru4,VAdd5thru8 

double  precision  Exports, Imports,VShiplto4,VShip5to9 

double  precision  VShipl0tol9,VShip20to49 

double  precision  VShip50to99,VShip250to499,VShip500to999 

double  precision  VShipl000to2499,VShip2500orMore 

double  precision  VShipl00to249 

double  precision  VAddlto4,VAddSto9 

double  precision  VAddl0tol9,VAdd20to49 

double  precision  VAdd50to99,VAdd250to499,VAdd500to999 

double  precision  VAddl000to2499,VAdd2S00orMore 

double  precision  VAddl00to249 

double  precision  TtlVAdd,TtlNEmp 

double  precision  NEmplto4,NEmp5to9 

double  precision  NEmpl0tol9,NEmp20to49 

double  precision  NEmp50to99,NEmpl00to249,NEmp250to499 

double  precision  NEmp500to999,NEmpl000to2499,NEmp2500orMore 

double  precision  CtrVShip,RunVShip,RunVAdd,Praction, Increment 

double  precision  UpperVAdd,LowerVAdd,UpperEmp,LowerEmp 

double  precision  MI0,MES,CDR,CAR,I,C4,K075,K076,K07576 

double  precision  AdvrToSales,GROW 

double  precision  CtrVAdd.Accuml 

double  precision  CPCM7576,CPCM75,CPCM76,Dlsp 

double  precision  ImportsToSales.ExportsToSales 

double  precision  MCDR,MESD20 

character  CharIn’''l,lnputPILNAM*B 

WRITE<*,*)  'ENTER  NAME  (UP  TO  8  CHARS)  OF  INPUT  FILE' 
WR1TE<*,*)  'YOU  WISH  TO  BE  PROCESSED.  ' 

READ(*,'U8)')  InputPILNAM 

OPEN(l,nLE>InputFILNAM,STATUS>'OLD'  ,ACCESS>'SEQUENTIAL' , 
PORM='PORMATTED',POSITION='APPEND’, 

ACTION«'REAO') 

OPEN(2.PILE>'DataBase'.STATUS»'NEW',ACCESS='SEQUENTIAL'. 

FORM-'FORMATTED', 


ACnON-’WRITE') 

REWINOd) 

RCWINO(2) 

”**  Initialisation  Ssction  *** 
SIC  «  0 
HCO  -  0 
Disp  •  0.0 
MCOR  «  0.0 
MESD20  -  0.0 
VShiplthru4  «  0.0 
VShlpSthruS  *0.0 
VAddlthru4  *  0.0 
VAddSthruS  -  0.0 
Employccslthru4  *  0.0 
EmployMsSthruB  «  0.0 
ESTlto4  «  0 
EST5to9  *  0 
EST10tol9  *  0 
EST20to49  *  0 
ESTS0to99  «  0 
EST100to249  «  0 
EST2S0to499  ■  0 
ESTS00to999  •  0 
EST1000to2499  >  0 
EST2S00orMorc  «  0 
VShiplto4  >0.0 
VShip5to9  >  0.0 
V8hipl0tol9  >0.0 
VShip20to49  >  0.0 
VShip60to99  >0.0 
VShip!00to249  >0.0 
VShip250to499  >0.0 
V8hip500to999  >0.0 
V8hipl000to2499  -  0.0 
VShip2S00orMorc  >0.0 
VAddlto4  >  0.0 
VAdd5to9  >  0.0 
VAddl0tol9  >  0.0 
VAdd20to49  -  0.0 
VAdd50to99  >0.0 
VAddl00to249  >0.0 
VAdd2S0to499  -  0.0 
VAddS00to999  >0.0 
VAddl000to2499  >0.0 
VAdd2S00orMort  >0.0 
NEmpltod  >0.0 


NEmp5to9  >  0.0 
NEmpl0tol9  >0.0 
NEmp20to49  *  0.0 
NEmp60to99  >0.0 
NEmpl00to249  >0.0 
NEmp250to499  >  0.0 
NEmpS00to999  >  0.0 
NEmpl000to2499  >  0.0 
NEmp2S00orMorc  >  0.0 
Imports  >0.0 
Exports  >  0.0 
Advtr  =  0.0 
Payroll76  >0.0 
Payrall75  -  0.0 
VAdd76  >  0.0 
VAd(17S  >0.0 
VShip77  -  0.0 
VShip76  >  0.0 
VShlp75  >  0.0 
VShip72  >  0.0 
GBVFA76  >  0.0 
aBVPA7S  -  0.0 
Item  >  0 
CtrVShip  »  0.0 
CtrVAdd  >0.0 
TUVAdd  >0.0 
TtlEstablishmcnts  «  0 
Accuml  >  0.0 
UpperEmp  >0.0 
LowerEmp  «  0.0 
UpperVAdd  >0.0 
LowvrVAdd  >  0.0 
Increment  >0.0 
IncrementEst  ■  0 
MID  >  0.0 
MES  >  0 
CDR  >  0 
CAR  -  0 
I  >  0 
C4  >  0 
K075  >  0.0 
K076  >  0.0 
K07576  >0.0 
AdvrToSales  >  0.0 
ExportsToSales  >0.0 
ImportsToSales  >0.0 


GROW  »  0.0 
RunVAdd  «  0.0 
RunVShip  ^  0.0 
Pound  3  0 
CPCM75  «  0.0 
CPCM76  *  0.0 
CPCM7576  >  0.0 
•••  Input  Data  Stction 

rcad(l  ,100)  SIC,Oisp,NCO,PayroU76,PayroU75, 
VAdd76,VAdd75.VShip77.VShip76,VShip75,VShip72, 
GBVFA76.GBVPA75, 

VShiplthru4,VShip5thru8,Employtcslthru4,Employecs5thru8, 

VAddlthru4,VAdd5thru8,Exports,Imports,Advcr, 

ESTlto4,ESTSto9.EST10tol9,EST20to49,ESTS0to99,EST100to249, 

EST2S0to499,EST500to999,EST1000to2499,EST2S00orMor*, 

VShiplto4.VShip6to9.VShipl0tol9,VShip20to49,VShipS0to99, 

VShipl00to249,VShip250to499.VShip500to999,VShipl000to2499, 

VShip2S00orMore, 

VAddlto4,VAddSto9,VAddlOtol9.VAdd20to49,VAdd50to99, 

VAddl00to249,VAdd250to499.VAddS00to999,VAddl000to2499, 

VAdd2S00orMore, 

NEmplto4,N£mp5to9,NEmpl0tol9,NEmp20to49,NEmp50to99, 

NEmpl00to249,Nf:mp2S0to499,NEmp500to999,NEmpi000to2499, 

NEmp2SOOorMore 

format<14,P9.4,15,4P8.iy,4P9.1,2F8.1,/,2P7.l,2PS.l,2P8.iy, 
2P10.1,P7.1,10I5y,10F8.iy,10P8.1,/,10P6.1) 
lP(SIC.tq.O)  goto  95 
•••  Calculate  Price-Cost  Margin  ••• 

lP(VAdd7S .  ne.999 .0).and.(VAdd76.nc.999 .0).and . 
<VShip7S.nc.999.0).and.(VShip76.ne.999.0}.and. 
(VShip75.nc.0.0).and.(VShip76.nc.0.0).and. 
(PayroU7S.nc.999.0).and. 

(Payroll76.nc.999.0)  then 
CPCM75  »  (VAdd75-Payroll75>/VShip75 
CPCM76  »  (VAdd76-Payroll76)/^^hip76 
CPCM7576  >  (CPCM7S  ♦  CPCM74}/2 
ELSE 

CPCM75  -  9999.0 
CPCM76  »  9999.0 
CPCM7976  «  9999.0 
ENDIP 

•••  Concentration 

IF(VShiplthru4.ne.999.0)  then 
C4  >  VShiplthru4*.01 
ELSE 

C4  ■  9999.0 


C  -  4 


ENDIF 

***  CalcuUtt  Capital/Output  Ratio  *** 
IP(QBVPA75.nc.999.0)  and.(aBVPA76.nc.999.0)  and. 
(VShip75  nt.999  0).and.(VShip76.na.999.0)  then 
K075  «  GBVFA75/VShip75 
K076  -  GBVFA76/VShip76 
K07576  -  (K075  ♦  K076)/2 
ELSE 

K075  ■  9999.0 
K076  »  9999.0 
K07S76  »  9999.0 
ENDIP 

***  Calculate  Advertisinf/Salcs  Ratio  *** 
lP(Adver.ne.999.0).and.(VShip77.ne. 999.0)  then 
AdvrToSales  •  Adver/VShip77 
ELSE 

AdvrToSales  -  9999.0 
ENDIF 

***  Calculate  Exports/Salcs  Ratio  *** 
IF(Exports.ne.999.0).and.(VShip77.ne.999.0)  then 
ExportsToSales  «  Exports/VShip77 
ELSE 

ExportsToSales  *  9999.0 
ENDIF 

***  Calculate  Imports/Sales  Ratio  *** 
IF(Imports.nc.999.0).and.(VShip77.ne.999.0)  then 
ImportsToSales  »  Imports/VShip77 
ELSE 

ImportsToSales  •  9999.0 
ENDIF 

•••  Calculate  Percentage  Growth  ••• 
IF((VShip77.nc.999.0).and.(VShip72.nc. 999.0))  then 
GROW  -  <VShip77  -  VShip72)/VShip72 
ELSE 

GROW  *  9999.0 
ENDIF 

***  Calculate  Cost  Advantage  Ratio  *** 
IP(VAddlthru4.ne.999.0).and. 
(VAdd5thru8.ne.999.0).and. 
(Employceslthru4.nc.999.0).and. 
(EmployccsSthruS .  nc  .999 .0).and . 
(EmployccslthruA  .ne.0).and. 
(Employccs5thru8.nc.O)  then 
CAR  *  (VAddlthru4/Employeeslthru4)/ 
(VAdd5thru8/EmployecsSthru8) 

ELSE 


CAR  -  9999.0 
ENDIF 

***  Calculate  Strategic  Croup  Concentration  *** 
IP(VShiplthru4.ne.999.0).and. 

(VShip5thru8.ne.999.0)  then 
I  ■  VShiplthru4/(VShiplthru4  ♦  VShipSthruS) 

ELSI 
1  ■  9999.0 
ENDIP 

***  Load  Dispersion  Index  *** 

IP(Oisp.eq.999.0)  then 
Oisp  «  9999.0 
ENDIF 

Efficiency  variables 

lF(ESTito4  .eq.999 .0).and.(EST5to9  .eq.999 .0).and . 
(EST10tol9.sq.999.0).and.(EST20to49.eq.999.0).and. 
(EST50to99.eq.999.0).and.(EST100to249.eq.999.0).and. 
(EST2SOto499  .eq.999 .0).and . 

(EST800to999.eq.999.0).and. 

(EST1000to2499.ne.999.0).and. 

(EST2500orMore.eq.999.0)  then 
MID  •  9999.0 
MES  -  9999.0 
CDR  >  9999.0 
MCDR  •  9999.0 
ME8D20  «  0.0 
goto  80 
ENDIF 

IP((VShiplto4.eq.999.0).and.(VShip5to9.eq.999.0)).or. 
((VShip6to9.cq.999.0).and.(>^hipl0tol9.eq.999.0)).or. 
«V8hipl0tol9.eq.999.0).and.(VShip20to49.eq.999.0)).or. 
«VShip20to49.eq.999.0).and.(V8hip60to99.eq.999.0».or. 
«VShip60to99.eq.999.0).and.(VShipl00to249.eq.999.0)).or. 
((V8hipl00to249.eq.999.0).and.(VShip250to499.eq.999.0}).or. 
((VShip250to499  .eq.999 .0).and.(VShip500to999.eq.999.0)).or. 
((VShip600to999.eq.999.0).and.(VShipl0O0to2499.eq.999.0)).or. 
((VShipl000to2499.eq.999.0).and. 
(V8hip2500orMore.cq.999.0))  then 
Accuml  •  0 
MID  ■  9999.0 
MES  -  9999.0 
goto  75 
ENDIF 

IF(VShip77.eq.999.0)  then 
MID  >  9999.0 
MES  -  9999.0 


CtrVShip  *  VShlp77/2 

TtlEsUblishmcnts  »  ESTlto4  ♦  ESTSto9  *  EST10tol9  * 

EST20to49  *  ESTS0to99  ♦  i:ST100to249  ♦ 

EST2S0to499  *  EST500ta999  ♦  EST1000to2499  -i-  EST2S00orMore 

IF(VShiplto4.nc.999.0)  then 
RunVShip  "  VShiplto4 
IF(CtrVShip.lc.RunVShip)  then 
Found  *  1 

IF(VShip5to9.eq.999.0)  then 
MID  »  VShiplto4/(ESTlto4  ♦  EST5to9) 

ELSE 

MID  «  VShiplto4/ESTlto4 
ENDIF 

RunVShip  ■  0 
foto  10 
ENDIF 
ENDIF 

lF(VShip6to9.ne.999.0)  then 
RunVShip  «  RunVShip  *  VShipSto9 
IF(CtrVShip.le. RunVShip)  then 
Found  «  2 

lF(VShipl0tol9.eq.999.0)  then 
MID  s  VShip5to9/(ESTSto9  ♦  EST10tol9) 

ELSE 

MID  *  VShip5to9/EST5to9 
ENDIF 

RunVShip  »  RunVShip  -  VShip5to9 
goto  10 
ENDIF 
ENDIF 

IF(VShipl0tol9.ne.999.0)  then 
RunVShip  >  RunVShip  *  VShipl0tol9 
IF(CtrVShip.lc.RunVShip)  then 
Found  *  3 

IF(VShlp20to49.eq.999.0)  then 
MID  -  V8hipl0tol9/(ESTI0tol9  ♦  EST20to49) 

ELSE 

MID  «  V8hipl0tol9/EST10tol9 
ENDIF 

RunVShip  •  RunVShip  -  VShipI0tol9 


lP(VShip20to49.n«.999.0)  then 
RunVShip  >  RunVShip  *  VShip20to49 
llKctrVShip.lc.RunVShip)  then 
Pound  a  4 

IF(VShip50to99.cq.999.0)  then 
MID  -  VShip20to49/<EST20to49  *  ESTSOto99) 

ELSE 

MID  -  V8hip20to49/EST20to49 
ENDIP 

RunVShip  »  RunVShip  -  VShip20to49 
foto  10 
ENDIP 
ENDIP 

IP(VShipS0to99.ne.999.0)  then 
RunVShip  •  RunVShip  *  VShip50to99 
IP(CtrVShip.le.RunVShip)  then 
Pound  •  5 

IP(VShipl00to249.eq.999.0)  then 
MID  a  VShip50to99/(ESTS0to99  *  EST100to249) 
ri-ST 

MID  a  VShip60to99/ESTS0to99 
ENDIP 

RunVShip  a  RunVShip  -  \^hip50to99 
goto  10 
ENDIP 
ENDIP 

lP(VShipl00to249.ne.999.0)  then 
RunVShip  ■  RunVShip  ♦  VShipl00to249 
IP(CtrVShip.lc.RunVShip)  then 
Pound  a  6 

IP(VShip250to499.eq.999.0)  then 
MID  a  VShipl00to249/(EST100to249  ♦  EST250to499) 
ELSE 

MID  a  VShiplOOto249/ESTlOOto249 
ENDIP 

RunVShip  -  RunVShip  -  VShiplOOto249 
goto  10 
ENDIP 
ENDIP 


lP(VShip250to499.ne.999.0)  then 


RunVShip  •  RunVShip  ♦  \^a\ip2S0t(>499 
IF(CtrVShip.le.RunVShip)  then 
Pound  s  7 

IP(VShipS00to999.eq.999.0)  then 
MID  «  VShip2S0to499/(EST250to499  ♦  ESTS00to999) 

ELSE 

MID  -  VShip2SOto499/EST2SOto499 
ENDIF 

RunVShip  ■  RunVShip  -  VShip250to499 
goto  10 
ENDIP 
ENDIP 

IP(VShipS00to999.ne.999.0)  then 
RunVShip  ■  RunVShip  *  VShip500to999 
IPCCtrVSMp.le.RunVShip)  then 
Pound  •  8 

lF(V8hipl000to2499.eq.999.0)  then 
MID  >  VShip500to999/(ESTS00to999  *  EST1000to2499) 

ELSE 

MID  >  VShip500to999/ESTS00to999 
ENDIP 

RunVShip  «  RunVShip  >  VShip500to999 
goto  10 
ENDIP 
ENDIP 

lP(VShipl000to2499.ne.999.0)  then 
RunVShip  »  RunVShip  *  VShipl000to2499 
IP(CtrVShip.le. RunVShip)  then 
Pound  «  9 

IP(VShipl000to2499.eq.999.0)  then 
MID  -  VShipl000to2499/(EST1000to2499  ♦  EST2S00orMorc) 
ELSE 

MID  »  VShipl000to2499/EST1000to2499 
ENDIP 

RunVShip  ■  RunVShip  -  VShiplOOOto2499 
goto  10 
ENDIP 
ENDIP 

IP(VShip2500orMore.ne.999.0)  then 
RunVShip  •  RunVShip  *  VShip2500orMorc 
IP(CtrVShip.le. RunVShip)  then 
Pound  >  10 

MID  -  VShip2SOOorMore/EST2500orMore 


RunVShip  ■  RunVShip  -  VShip2500orMorc 
goto  10 
ENDIP 

ENDIP 

lP(Pound.cq.l)  then 
RunVShip  •  RunVShip  *  MID 
IncrementEst  •  IncrementEst  *  1 
IP(RunVShip.lt.CtrVShip)  goto  11 
MES  -  ((VShip77  -  RunVShip) 

/(TtlEstnhlishments  -  lncremcntEst))/VShip77 

ELSEIP(Pound.eq.2)  then 
IncrementEst  ■  ESTlto4 
RunVShip  *  RunVShip  ♦  MID 
IncrementEst  >  IncrementEst  *  1 
IP(RunVShip.lt.CtrVShip)  goto  12 
MES  «  ((VShip77  -  RunVShip) 

/(TtlEstabllshments  -  lncrementEst))/VShlp77 

ELSEIP(Pound.eq.3)  then 
IncrementEst  ■  ESTlto4  *  EST5to9 
RunVShip  •  RunVShip  ♦  MID 
IncrementEst  »  IncrementEst  1 
IP(RunVShip.lt.CtrVShip)  goto  13 
MES  »  ((VShip77  -  RunVShip) 

/(TtlEstablishments  -  IncrementEst))/VShip77 

ELSEIF(Found.eq.4)  then 
IncrementEst  -  ESTltod  *  EST5to9  ■t’  EST10tol9 
RunVShip  »  RunVShip  *  MID 
IncrementEst  «  IncrementEst  *  1 
IF(RunVShlp.lt.CtrVShip)  goto  14 
MES  «  ((VShip77  -  RunVShip) 

/(TtlEstsbUshments  -  IncrementEst))/V8hip77 

ELSEIF(Found.eq.5)  then 

IncrementEst  -  ESTUo4  ♦  EST5to9  *  E8T10tol9  i-  EST20to49 
RunVShip  •  RunVShip  *  MID 
IncrementEst  >  IncrementEst  *  I 
lF(RunVShip.It.CtrVShip)  goto  15 
MES  *  ((VShip77  -  RunVShip) 

/(TtlEsUblishments  -  IncrementEst))/VShip77 

ELSEIF(Found.eq.6)  then 

IncrementEst  -  ESTItod  EST5to9  *  ESTI0tol9  *  EST20to49  * 


I 


EST50to99 

RunVShip  >  RunVShip  *  MID 
IncrcmcntEst  *  IncrementEst  *  1 
IP(RxmVShip.lt.CtrVShip)  goto  16 
MES  «  ((VShip77  -  RunVShip) 

/(TtlEstablishmcnts  -  IncrcmcntEst))/VShip77 

ELSEIF(Found.cq.7)  then 

IncrementEst  -  ESTlto4  ♦  ESTSto9  ♦  ESTI0tol9  *  EST20to49 
EST50to99  ♦  EST100to249 
RunVShip  s  RunVShip  MID 
IncrementEst  *  IncrementEst  I 
IP(RunVShip.It.CtrVShip)  goto  17 
MES  -  ((VShip77  -  RunVShip) 

/(TtlEstsblishments  -  IncrementEst))/VShip77 

ELSEIP(Pound.eq.8)  then 

IncrementEst  >  ESTIto4  EST5to9  ♦  ESTI0toI9  ^  EST20to49 
E8TS0to99  *  EST100to249  ♦  EST250to499 
RunVShip  »  RunVShip  ♦  MID 
IncrementEst  *  IncrementEst  *  I 
IP(RunVShip.It.CtrVShip)  goto  16 
MES  s  ((VShip77  -  RunVShip) 

/(TtlEstablishments  -  lncrementEst))/VShip77 

ELSEIP(Pound.eq.9)  then 

IncrementEst  »  ESTltod  ♦  EST5to9  ♦  EST10tol9  ♦  EST20to49 
EST50to99  ♦  ESTI00to249  *  EST250to499  *  EST500to999 
RunVShip  ■  RunVShip  MID 
IncrementEst  >  IncrementEst  *  I 
IP(RunVShip.It.CtrVShip)  goto  19 
MES  -  ((VShip77  -  RunVShip) 

/(TtlEstablishments  -  IncrementEst))/VShip77 

ELSEIP(Pound.eq.lO)  then 

IncrementEst  >  ESTlto4  ♦  EST6to9  «  EST10tol9  ♦  EST20to49 
EST50to99  *  EST100to249  ♦  EST250to499  *  EST500to999  * 
EST1000to2499 

RunVShip  «  RunVShip  ♦  MID 
IncrementEst  ■  IncrementEst  I 
IP(RunVShip.It.CtrVShip)  goto  20 
MES  «  ((VShip77  -  RunVShip) 

/(TtlEstablishments  -  IncrementEst))rvShip77 

ENDIP 

•••  Calculate  MID  •** 

MID  -  MID/VShip77 


o  o 


»•*  Calculate  CDR  *** 

75  lP<(VA(ldlto4.eq.999.0).an<l.<VAdd5to9.eq.999.0)).or. 

«VAdd5to9.eq.999.0).and.<VAddl0tol9.eq.999.0».or. 
((VAddl0tol9.eq.999.0).and.(VAdd20to49.eq.999.0)).or. 
«VAdd20to49.eq.999.0).and.{VAdd50lo99.eq.999.0».or. 
((VAdd50to99.eq.999 .0).and  .(VAddlOOto249.eq.999 .0)).or . 
((VAddl00to249  cq  .999 .0).and  .(VAdd250to499  .eq.999 .0)).or . 
((VAdd2S0to499.eq.999.0).and.(VAdd500to999.eq.999.0)).or. 
((VAdd500to999.eq.999.0).and.(VAddl000to2499.eq.999.0)).or. 
((VAddl000to2499  .eq.999 .0).and . 

(VAdd2S00orMore.eq.999.0))  then 
CDR  *  9999.0 
MCDR  -  9999.0 
M1SD20  «  9999.0 
goto  80 
ENDIP 

TtlVAdd  *  0.0 

lP(VAddlto4.ne.999.0)  TtlVAdd  «  VAddlto4 
lP(VAdd5to9.ne.999.0)  TtlVAdd  «  TtlVAdd  ♦  VAddSto9 
IP(VAddl0tol9.ne.999.0)  TtlVAdd  -  TtlVAdd  *  VAddl0tol9 
IP(VAdd20to49.ne.999.0)  TtlVAdd  -  TUVAdd  ♦  VAdd20to49 
IP(VAddS0to99.ne.999.0)  TtlVAdd  =  TtlVAdd  4^  VAdd50to99 
lP(VAddl00to249.ne.999.0)  TtlVAdd  »  TtlVAdd  ♦  VAddlOOto249 
IP(VAdd250to499.ne  .999.0)  TtlVAdd  =  TUVAdd  ♦  VAdd250to499 
IP(VAdd500to999.ne.999.0)  TUVAdd  »  TUVAdd  ♦  VAdd500to999 
lP(VAddl000to2499.ne.999.0)  TtlVAdd  »  TtlVAdd  ♦ 
VAddl000to2499 

IP(VAdd2500orMore.ne.999.0)  TtlVAdd  »  TtlVAdd  ♦ 
VAdd2500orMorc 
CtrVAdd  *  TtlVAdd/2 

IP((NEmplto4  .eq.999 .0).and  .(NEmp5to9  .eq  .999 .0)). or . 
((NEmp6to9.eq.999.0).and.(NEmpl0tol9.eq.999.0)).or. 
((NEmpl0tol9.eq.999.0}.and.(NEmp20to49.eq.999.0)).or. 
((NEmp20  to49 .  eq . 999 . 0) .  and .  (NEmpSO  to99 .  eq . 999 . 0)) .  or . 
((NEmp50to99.eq.999.0).and.(NEmpl00to249.eq.999.0)}.or. 
((NEmpl00to249.eq.999.0).and.(NEmp250to499.eq.999.0)).or. 
((NEmp2S0to499.cq.999.0).and.(NEmp500to999.cq.999.0)).or. 
((NEmp500to999 .  eq . 999 . 0).  and  .(NEmpl000to2499 .  eq  .999 . 0})  .or . 
((NEmpl000to2499 .eq  .999 .0).and. 
(NEmp2500orMore.eq.999.0))  then 
CDR  «  9999.0 
goto  80 
ENDIP 

TtlNEmp  *  0.0 

IP(NEmplto4.ne.999.0)  TtlNEmp  -  NEmplto4 
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lF(NEinp6to9.nc.999.0)  TtlNEmp  -  TtlNEmp  NEmp5to9 
IP(NEmplOtol9.ne. 999.0)  TUNEmp  »  TtlNEmp  ♦  NEmpl0tol9 
lP(NEmp20to49.ne.999.0)  TtlNEmp  -  TtlNEmp  *  NEmp20to49 
IP(NEmp50to99.nc.999.0)  TtlNEmp  -  TtlNEmp  NEmp50to99 
IP(NEmpl00to249.ne. 999.0)  TtlNEmp  TtlNEmp  *  NEmpl00to249 
lP(NEmp250to499.nc.999.0)  TtlNEmp  «  TtlNEmp  *  NEmp250to499 
lP(NEmpS00to999.ns.999.0)  TtlNEmp  ^  TtlNEmp  NEmp500to999 
lF(NEmpl000to2499.ne. 999.0)  TtlNEmp  «  TtlNEmp 
NEmpl000to2499 

IF(NEmp2500or More. ne. 999.0)  TtlNEmp  »  TtlNEmp 
NEmp2500orMore 
IF(VAddlto4.ne.999.0)  then 
RunVAdd  »  VAddlto4 
IF(CtrVAdd.lc.RunVAdd)  then 
RunVAdd  >0.0 
lF<VAddSto9.gc. 999.0)  then 
Increment  ■  VAdd5to9/(ESTlto4  EST5to9) 

ELSE 

Increment  =  VAddlto4/KTlto4 
ENDIP 

RunVAdd  »  RunVAdd  -*■  Increment 
IP(RunVAdd.lt.CtrVAdd)  goto  30 
Fraction  «  RunVAdd/VAddlto4 
UpperVAdd  =  TtlVAdd  -  RunVAdd 
LowerVAdd  -  RunVAdd 
LowerEmp  »  Fraction  *  NEmplto4 
UpperEmp  »  TtlNEmp  -  LowerEmp 
goto  45 
ENDIF 
ENDIF 

IF(VAddSto9.ne.999.0)  then 
RunVAdd  -  RunVAdd  ♦  VAdd5to9 
IPCCtrVAdd.le.RunVAdd)  then 
RunVAdd  »  RunVAdd  -  VAdd5to9 
IP(VAdd50to99.ge.999.0)  then 
Increment  >  VAddSto9/(EST5to9  +  EST10tol9) 

ELSE 

Increment  •  VAddSto9/EST5to9 
ENDIF 

RunVAdd  •  RunVAdd  *  Increment 
IF(RunVAdd.lt.CtrVAdd)  goto  31 
Fraction  >  (RunVAdd-VAddlto4)/(VAdd5to9) 

UpperVAdd  >  TtlVAdd  -  RunVAdd 
LowerVAdd  •  RunVAdd 

LowerEmp  ■  (Fraction  *  NEmp5to9)  NEmplto4 


UpperExnp  ■  TtlNEmp  -  LowerEmp 
goto  45 
ENDIP 
ENDIP 

IP(VAddl0tol9.nc.999.0)  then 
RunVAdd  >  RunVAdd  ♦  VAddl0tol9 
lP(CtrVAdd.le.RunVAdd)  then 
RunVAdd  >  RunVAdd  -  VAddl0tol9 
IF(VAdd50to99.ge.999.0)  then 
Increment  =  VAddl0tol9/(EST10tol9  EST20to49} 

ELSE 

Increment  »  VAddl0tol9/EST10tol9 
ENDIP 

RunVAdd  *  RunVAdd  *  Increment 
lP(RunVAdd.lt.CtrVAdd)  goto  32 

Fraction  *  (RunVAdd-VAddlto4-VAdd5to9)/(VAddl0tol9) 
UpperVAdd  «  TtlVAdd  -  RunVAdd 
LowerVAdd  »  RunVAdd 

LowerEmp  »  (Fraction  *  NEmpl0tol9)  NEmp5to9  *  NEmplto4 
UpperEmp  -  TtlNEmp  -  LowerEmp 
goto  45 
ENDIP 
ENDIP 

IP(VAdd20to49.ne.999.0)  then 
RunVAdd  »  RunVAdd  *  VAdd20to49 
IF(CtrVAdd.le.RunVAdd)  then 
RunVAdd  -  RunVAdd  >  VAdd20to49 
IF<VAdd50to99.ge.999.0)  then 
Increment  >  VAdd20to49/(EST20to49  *  EST50to99) 

ELSE 

Increment  -  VAdd20to49/EST20to49 
ENDIP 

RunVAdd  s  RunVAdd  *  Increment 
Accuml  -  Accuml  Increment 
IF(RunVAdd.lt.CtrVAdd)  goto  33 
Fraction  ■  (Accuml)/(VAdd20to49) 

UpperVAdd  ^  TtlVAdd  -  RunVAdd 
LowerVAdd  >  RunVAdd 

LowerEmp  ■  (Fraction  *  NEmp20to49)  NEmpl0tol9  4- 
NEmp5to9  *  NEmplto4 
UpperEmp  •  TtlNEmp  -  LowerEmp 
goto  45 
ENDIP 
ENDIP 


IF(VAdd50to99.ne.999.0)  then 
SunVAdd  >  RunVAdd  4  VAdd50to99 
IF(CtrVAdd.lc.RunVAdd)  then 
RunVAdd  «  RunVAdd  -  VAdd50to99 
IP(VAddl00to249.gc.999.0)  then 
Increment  s  VAdd50to99/(ESTS0to99  *  EST100to249) 
ELSE 

Increment  »  VAddS0to99/EST50to99 
ENDIP 

RunVAdd  -  RunVAdd  *  Increment 
Accuml  *  Accuml  Increment 
IP(RunVAdd.lt.CtrVAdd)  goto  34 
Fraction  •  (Accuml)/(VAddSOto99) 

UpperVAdd  »  TtlVAdd  -  RunVAdd 
LowerVAdd  -  RunVAdd 

LowerEmp  •  (Fraction  *  NEmp50to99)  *  NEmp20to49  *■ 
NEmpl0tol9  *  NEmp5to9  NEmplto4 
UpperEmp  »  TtlNEmp  -  LowerEmp 
goto  45 
ENDIF 
ENDIP 

IP(VAddl00to249.ne.999.0)  then 
RunVAdd  -  RunVAdd  *  VAddlOOto249 
IF(CtrVAdd.le.RunVAdd)  then 
RunVAdd  >  RunVAdd  -  VAddl00to249 
IF(VAdd250to499.ge.999.0)  then 
Increment  »  VAddl00to249/(EST100to249  ^  EST250to499) 
ELSE 

Increment  -  VAddS0to99/EST50to99 
ENDIP 

RunVAdd  >•  RunVAdd  *  Increment 
Accuml  *  Accuml  Increment 
lP(RunVAdd.lt.CtrVAdd)  goto  35 
Fraction  «  (Accuml)/(VAddl00to249) 

UpperVAdd  »  TUVAdd  -  RunVAdd 
LowerVAdd  ■  RunVAdd 

LowerEmp  ■  (Fraction  *  NEmpl00to249)  *  NEmp50to99  4- 
NEmp20to49  4  NEmpl0tol9  ♦  NEmp5to9  *  NEmplto4 
UpperEmp  ■  TtlNEmp  -  LowerEmp 
goto  45 
ENDIP 
ENDIP 


lF(VAdd250to499.ne.999.0)  then 


RunVAdd  -  RunVAdd  *  VAdd2SOto499 
IPCCtrVAdd.lc.RunVAdd)  then 
RunVAdd  s  RunVAdd  -  VAdd2S0to499 
IP(VAddS00to999.g*.999.0)  then 
Increment  «  VAdd2S0to499/(EST250to499  ♦  ESTS00to999) 
ELSE 

Increment  >  VAdd2S0to499/EST2S0to499 
ENOIF 

RunVAdd  ■  RunVAdd  ♦  Increment 
AccumI  «  AccumI  *  Increment 
IP(RunVAdd.It.CtrVAdd)  goto  36 
Fraction  »  (Accuml)/(VAdd250to499) 

UpperVAdd  >  TUVAdd  -  RunVAdd 
LowerVAdd  ■  RunVAdd 

LowerEmp  >  (Freetion  *  NEmp250to499)  *  NImpi00to249 
NEmp90to99  ♦  NEmp20to49  ♦  NEmp  10tol9  *  NEmp  5to9 
NEmpIto4 

UpperEmp  *  TtINEmp  -  LowerEmp 
goto  4S 
ENOIF 
ENDIF 

IF(VAdd500ta999.ne.999.0)  then 
RunVAdd  «  RunVAdd  ♦  VAddSOOto999 
IF(CtrVAdd.le.RunVAdd)  then 
RunVAdd  -  RunVAdd  •  VAddSOOto999 
IF(VAddl000to2499.ge.999.0)  then 
Increment  *  VAdd500to999/<EST500to999  ♦  EST1000to2499) 
ELSE 

Increment  •  VAdd500to999/EST500to999 
ENDIF 

RunVAdd  ■  RunVAdd  *  Increment 
AccumI  ■  AccumI  *  Increment 
IFCRunVAdd.lt.CtrVAdd)  goto  37 
Fraction  »  (AccumI)/(VAddS00to999) 

UpperVAdd  >  TtIVAdd  -  RunVAdd 
LowerVAdd  •  RunVAdd 

LowerEmp  ■  (Fraction  *  NEmp500to999)  *  NEmp2S0to499 
♦  NEmpl00to249  '»'NEmp50to99  *  NEmp20to49  <- 
NEmp  IOtoI9  *  NEmp  Sto9  ♦  NEmpIto4 
UpperEmp  •  TtINEmp  -  LowerEmp 
goto  45 
ENDIF 
ENDIF 

IF(VAddl000to2499.ne.999.0)  then 


RunVAdd  «  RunVAdd  ♦  VAddl000to2499 
IP(CtrVAdd.le.RunVAdd)  then 
RunVAdd  »  RunVAdd  -  VAddl000to2499 
1P(V Add2500or More. ge. 999.0)  then 
Increment  »  VAddl000to2499/(EST1000to2499 
*  EST2S00orMorc} 

ELSE 

Increment  >  VAddl000to2499/ESTI000to2499 
ENDIP 

RunVAdd  -  RunVAdd  ♦  Increment 
AccumI  3  Accuml  «  Increment 
IP(RunVAdd.It.CtrVAdd)  goto  38 
Praction  =  (AccumI)/(VAddI000to2499) 

UpperVAdd  «  TtlVAdd  -  RunVAdd 
LowerVAdd  «  RunVAdd 

LowerEmp  «  (Praction  *  NEmplOOOto2499)  *  NEmp500to999  * 
NEmp2S0to499  *  NEmpi00to249  ■t-NEmp50to99 
NEmp20to49  •t'NEmp  I0tol9  ♦  NEmp  5to9  +  NEmplto4 
UpperEmp  =  TtlNEmp  -  LowerEmp 
goto  45 
ENDIP 
ENOIP 

RunVAdd  »  RunVAdd  ♦  VAdd2SOOorMore 
IP(CtrVAdd.le.RunVAdd)  then 
RunVAdd  «  RunVAdd  -  VAdd2500orMore 
Increment  «  VAdd2500orMore/EST2500orMore 
RunVAdd  s  RunVAdd  Increment 
Accuml  -  Accuml  *  Increment 
IF(RunVAdd.It.CtrVAdd)  goto  39 
Praction  >  (Accuml)/(VAdd2500orMore) 

UpperVAdd  =  TtlVAdd  -  RunVAdd 
LowerVAdd  >  RunVAdd 

LowerEmp  »  (Praction  •  NEmp2500orMore)  +  NEmpl000to2499 
NEmp500to999  ♦  NEmp250to499  ♦  NEmpl00to249  ♦  NEmp50to99 
NEmp20to49  ♦NEmp  10tol9  ♦  NEmp  5to9  ♦  NEmplto4 
UpperEmp  >  TtlNEmp  -  LowerEmp 
goto  45 
ENDIP 

CDR  ■  (LowcrVAdd/LowcrEmp)/(UpperVAdd/UpperEmp) 
IP(MID.ne.9999)  then 
lP(CDR.lt.0.75)  then 
MCDR  =  MID 
ELSE 

MCDR  -  0.0 


ENDIF 
ELSE 

MCDR  =  9999.0 
ENDIP 

IF(MES.ne.9999.0)  then 
IP(C0R.lt.0.80)  then 
MESD20  a  MES 
ELSE 

MESD20  -  0.0 
ENDIF 
ELSE 

MESD20  s  9999.0 
ENDIP 

80  write<2,l0l)  SlC,Disp,CPCM7576,CPCM75,CPCM76, 
C4,MID,MES,CDR,CAR,I,K075,K076, 
K07576,AdvrToSaIes,GROW,NCO,VShip75,VShip76, 
PayrolI75,PayroII76,VAdd75,VAdd76, 
ImportsToSaIes.ExportsToSales,MCDR,MESD20 
10 1  format(l4,5P10 .4  y  ,4F10 .4^,6F10.4,I5,/,6F10 .2^  ,4P10 .4) 

write(»,*)  SIC 
goto  1 
55  STOP 

end 
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program  PTCbuild 
IMPLICIT  NONE 

double  precision  PTCCode75,PTCCode76,PartRat75,PartIUt76 

double  precision  CoverRat7S,Coverftat76 

double  precision  SpeclzRat7S,SpeclsRat76 

double  precision  PPE7SAcqd5,PPE75Acqd5TolO 

double  precision  PPE75Acqdl0To20,PPE75Acqd20Plus 

double  (ireclsion  PPE76Acqd5,PPE76Acqd5TolO 

double  precision  PPE76Acqdl0To20,PPE76Aciid20Plus 

double  precision  LBAOV76.LBAOV75.LBAOV7S76 

double  precision  KOftc75,KOftc76,EOftc7S76 

double  precision  LBR07S,LBR076,LBR07576 

double  precision  OeprToSales7S,OeprToSales76,DeprToSales7576 

double  precision  LBOPI7S,LBOPI76,LBOPr7576 

double  precision  LBCU75,LBCU76,LfiCU7576 

double  precision  PCM7S,PCM76,PCM7576 

double  precision  AdJPCM7S.AdjPCM76,AdJPCM7S76 

double  precision  DerPCM7S.DerPCM76.DerPCM7576 

double  precision  LBASS75,LfiASS76,LBASS7576 

double  precisian  GenAdminToSales75,GenAdminToSales76 

double  precision  GenAdminToSales7576 

integer  SIC 

integer  CensusCodel,CensusCode2,CensusCode3,CensusCode4 

integer  CensusCodeS  ,NumberCompanies75  ,NumberCompanies76 

integer  Med AdvExpTrac7S  ,MedAd vExpTrac76 

integer  MedAdvExp75,MedAdvExp76 

integer  MedAdvExpNonTrac75,MedAdvEzpNonTrac76 

integer  OthrSellExpNonTrac75,OthrSellExpNonTrac76 

integer  OthrSellExpTrac75,OtlirSellExpTrac76 

integer  OthrSellExp75,OthrSellExp76 

integer  Sales74,Sales75.Sales76 

integer  QencralAndAdminTrac7S 

integer  GeneralAndAdminTrac7A 

integer  GeneralAndAdminNonTrac75 

integer  GeneralAndAdminNonTrac76 

integer  GeneralAndAdmin75 

integer  GcneralAndAdmln76 

integer  GrossPlantPropEquipTrac75,GrossPlantPropEquipTrac76 

integer  GrossPlantPropEquipNonTrac75 

integer  GrossPlantPropEquipNonTrac76 

integer  GrossPlantProp£quip75 

integer  GrossPlantPropEquip76 

integer  InvcnLastYearTrac7S,lnvcnLastYearTrac76 

integer  InvenLastYear75,lnvcnI^stYear76 

integer  InvcnLastYearNonTrac75,lnvcnLastYearNonTrac76 


I 


integer  lnvenLastYearNonTrac75,lnvenLastYearNonTrac76 

integer  InvenThisYearTrac7S,InvenThisYearTrac76 

integer  InvenThisYear75,InvenThisYear76 

integer  lnvenThisYearNonTrac76,lnvenThisYearNonTrac76 

integer  Payroll75,PayroU76 

integer  MaterialsUsed75,MaterialsUsed76 

integer  RandD7S,Rand076 

Integer  Oepr75,Oepr76 

integer  Operatinglncome75,Operatinglncome76 
integer  A110therAssetsTrac7S,A110therAssetsTrac76 
integer  A110therAssets75,A110tlierAssets76 
integer  AUOtherAseetsNonTrac75,A110therAssetsNonTrac76 
integer  Deltalnventory7S,OeltaInventory76 
0PEN(1.PILE«‘PTC7S '  ,STATUS«'OLD' ,  ACCESS«'SEQUENTIAL' , 

PORM>'PORMATTEO',POSmON>‘APPEND', 

action«*ri:ao') 

0PEN(2,P1LE-'PTC76',STATUS-'0LD',ACCESS-'SEQUENTIAL’, 

P0RM«'P0RMATTED‘.P0S1TI0N«*APPEND', 

ACTION>'READ‘) 

0PEN(3.PlLE*‘PTCDaUBase‘,STATUSs‘NEW',ACCESS>'SEQUENTIAL', 

P0RM«'P0RMATTE0‘. 

ACTION-'WRITE') 

REWIND  (1) 

REWIND  (2) 

REWIND  (3) 

SIC  >  0 

CensusCodel  «  0 
CensusCode2  «  0 
CensusCode3  «  0 
CensusCodcA  -  0 
CensusCodeS  •  0 
NumberCompanies7S  ^  o 
NumberCom|)anies76  ■  0 
MedAdvExpTrac75  ■  0 
MedAdvExpNonTrac7S  >  0 
MedAdvEzp75  >  0 
MedAdvExpTrac76  >  0 
MedAdvEzpNonTrac76  -  0 
MedAdvEzp76  ■  0 
OthrSellExpTrac75  >  0 
OthrSeIlEzpNanTrac7S  -  0 
OthrSellExpNonTrac76  ■  0 
OthrSellExpTrac76  ■  0 
OthrSeUEzp75  >  0 
OthrSellExp76  «  0 
Sales75  -  0 
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Salcs74  >  0 
Salts76  >  0 

GcncralAndAdmlnNonTrac75  «  0 
Gcn«ralAndAdminTrac75  ■  0 
GcncraUndAdminTrac76  >  0 
QcncralAndAdmin75  ■  0 
G*n*ralAndAdinin76  •  0 
GtncralAndAdminNonTrac76  •  0 
GcnAdminToSalcsTS  -  0.0 
G*nAdminToSalcs76  «  0.0 
GtnAdminToSalts7S76  >0.0 
GrossPlantPropIqulpTrac7S  >  0 
GrossPlantPropEquipNonTrAcTS  ■  0 
QrossPlantPropEquipTrac76  «  0 
GrossPlantPropEquipNonTrac76  «  0 
GrossPlantPropEquip7S  «  0 
GrossPlaiitPropEquip76  ■  0 
InvcnLastYcarTrac7S  «  0 
lnvcnLastYcarNonTrac7S  >  0 
InvcnLa«tY*arTrae76  «  0 
InvtnLastYcarNonTrac76  >  0 
InvcnThisYcarNonTrac75  «  0 
InvmThisYMrTrac75  ■  0 
InvcnThisYcarTrac76  ■  0 
Inv*nThisY*arNonTrae76  ■  0 
Inv«nLastYcar75  >  0 
InvcnLastYtar76  >  0 
Inv»nThisY«ar76  >  0 
InvcnThisYcar75  >  0 
Payroll75  ■  0 
Payroll76  >  0 
MatcrialsUscd76  >  0 
MatcrialsUscd75  >  0 
RandD75  >  0 
RandD76  ■  0 
I>tpr75  >  0 
Oepr  76  B  0 
Opcratinflncomc75  -  0 
(^ratinfIncomt76  >  0 
A110thcrAssctsTrac75  >  0 
A110thcrAssctsNonTrac7S  >  0 
A110thtrAssctsTrac76  >  0 
AUOthcrA*MttNonTrac76  >  0 
A110thcrABMts76  >  0 
A110th«rAsMU7S  >  0 
OcltaInvcntory7S  ■  0 


DeltaInvcntory76  ■  0 
FTCCode75  »  00.00 
PartRat75  «  0.0 
CovsrRat75  >0.0 
SpcclzRat75  >0.0 
PTCCodc76  >0.0 
PartRat76  >  0.0 
CoverRat76  >0.0 
SpcclsRat76  >0.0 
PPE75Acqd5  >0.0 
PPE75Acqd5TolO  >  0.0 
PPE75Acqdl0To20  >0.0 
PPE7SAcqd20Plus  >0.0 
PPE76AcqdS  >0.0 
PPr76AcqdSTolO  >0.0 
PPE76Acqdl0To20  -  0.0 
PPC76Acqd20Plus  >  0.0 
LBADV75  >0  .0 
LBAOV76  -  0.0 
LBADV7S76  >0.0 
KOftc7S  >0  .0 
KOftc76  -  0.0 
KOftc7576  >  0.0 
LBRD75  >0  .0 
LBRD76  >0.0 
LBRD7576  >0.0 
DeprToSales75  >0.0 
0«prToSal«s76  >0.0 
DcprToSalcs7576  >0.0 
LBOPnS  >  0.0 
LBOPI76  >0.0 
LBOPI7576  >0.0 
LBCU75  -  0.0 
LBCU76  >  0.0 
LBCU7976  >0.0 
LBCU75  >  0.0 
LBCU76  >  0.0 
LBCU7576  -  0.0 
PCM7S  >  0.0 
PCM76  >  0.0 
PCM7576  -  0.0 
AdJPCM75  >0.0 
AdJPCM76  >0.0 
AdjPCM7576  >  0.0 
DtrPCM75  >  0.0 
DcrPCM76  >0.0 


o  o 


D*rPCM7576  >  0.0 
LBASS75  >  0.0 
LBA8S76  «  0.0 
LBASS7576  >0.0 

rcad(l.l01)  FTCCodt75.CeiisusCodcl,CcnsusCodt2,CcnsusCodc3. 
C*nsusCad»4,CcnsusCadc5,Nunib*rCom|»nics75,PartSat75, 
SiwclsRat75,CovMrRat7S,SalM75. 

Salcs74, 

McdAdvEzpTrac7S,M*dAdvExpNonTrac75, 

OthrSeUEzpTrac75.0thrScUExpNonTrac75, 

GancralAndAdminTrac75, 

GancralAndAdminNonTrac75, 

OperaUntIncomt7S, 

GrcissPlantPropEquipTrac75, 

GrosaPlantPropEquipNoiiTrac75, 

lnvcnTliisYaarTrac7S,lnvniThisYaarNonTrac75, 

Inv*nLastYcarTrac75,lnv«iiLastYcarNonTrac7S, 

A110th*rAssctsTrac7S,A110thcrAssctsNonTrac75, 

Payroll7S,MatcrlalsUsad7S,Ocpr75, 

RandO7S,PPr75AeqdS,PPC7SAeqd5Tol0, 

PP!75Acqdl0To20.PPE7SAcqd20Plus 

101  FOHMAT<F5 .2,5I5,13,3P6.  l,2»y  ,7I8y,9I8y,19,2I8,4P5 . 1) 
lF(PTCCod*7S.tq.0.0)  goto  150 

rcad(2,102)  PTCCodt76,CcnsusCodal,CcnsusCodc2,CcnsusCodc3, 
-  C*nsusCodc4,CcnsusCodc5,NumbcrCompanics75,PartRat76, 

SpcclBRat76,CoverRat76,Salcs76, 

Med  AdvExpTrac76  ,McdAdvEzpNonTrac76 , 
OthrS*llExpTrac76,OthrSillExpNonTrac74, 
GcncralAndAdminTrac76, 

QcncralAndAdminNonTrac76, 

OperatingIncomc76, 

GrossPlantPropEquipTrac76, 

GrossPlantPropEquipNonTrac76, 

InvcnThisYcarTrac76,InvniThisYcarNonTrac76, 

lnv*nLaitYcarTrac76,InvcnLastYcarNoinTrac76, 

A110th«rAsMtsTrac74,A110th«rAsMtsNonTrao74, 

Payroll76.MatcrialsUscd76,D«pr76. 

RandO76,PPE76Acqd5,PPE76Acqd5Tol0, 

PPC76Acqdl0To20,PPr76Acqd20Plus 

102  PORMAT(F5.2,515,I3,3F6.1,19y,7I8y,9I8y,I9,2l8,4P5.l) 
IF(FTCCod*75.cq.PTCCddc74).and.(CcnsusCodc2.aq.O)  then 

SIC  >  CcnsusCodcl 

***  Media  Advertising  Expense  *** 
IP((McdAdvExpTrac76.eq.999999).and. 
(MedAdvExpNonTrac76.eq.999999»  then 
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MtdAdvExp76  -  999999 
ELSE 

lP(MedAdvExpTrmc76.tq.999999)  MtdAdvExpTrac76  «  0 
lP(M«dAdvExpNonTrao74.(iq.999999)  M«dAdvExpNonTrao76  ■ 
McdAdvExp76  ■  McdAdvExpTrac76  *  MtdAdvExpNonTrac76 
ENOIP 

lP((MadAdvExpTr«c75  .•q.999999).aiul. 
(MtdAdvExpNonTracTS.tq. 999999))  then 
McdAdvExp7S  -  999999 
ELSE 

lP(McdAdvEzpTrAC75.tq.999999)  MtdAdvExpTrAc75  •  0 
IP(MtdAdvExpNonTrac75.tq.999999)  MtdAdvEzpNonTrac7S  » 
McdAdvExp75  >  McdAdvExpTrac75  ♦  MtdAdvExpNonTrac75 
ENOIP 

***  Gentral  and  Administrative  Expanses  *** 
lP((GeneraLAndAdminTrac76.cq.999999).and. 
(GeneralAndAdminNonTrac76.cq.999999))  then 
OeneraUAndAdmln76  •  999999 
ELSE 

IP(GeneralAndAdminTrac76.cq.999999)  then 
QeneralAndAdminTrac76  •  0 
ENOIP 

IP(GeneralAndAdminNonTrAc7i.tq.999999)  then 
GencralAndAdminNonTrac76  «  0 
ENOIP 

GeneralAndAdmin76  «  GeneralAndAdminTrac76  ♦ 
GencralAndAdminNonTrac76 
ENOIP 

IP((QcncralAndAdminTrac7S.cq.999999).and. 
(GencralAndAdminNonTrae75  .cq.999999))  then 
GeneralAndAdniin75  «  999999 
ELSE 

IP(GencralAndAdminTrac7$.cq.999999)  then 
QcneralAndAdmlnTrac79  «  0 
ENOIP 

IP(General AndAdminNonTrac75  .cq  .999999)  then 
QcncralAndAdminNanTrac75  *  0 
ENOIP 

GeneraIAndAdmin75  «  GencralAndAdminTrac75  ♦ 
GcncraIAndAdminNonTrac75 
ENOIP 

***  General  Administrative  To  Sales  Ratio  *** 
IP(Sales75.nc.99999999)  then 

GenAdminToSalcs75  *  OBL^QcncralAndAdmin75)/Sales75 


I 


ELSE 

GcnAdminToSales7S  *  9999.0 
ENDIP 

lF(Sal«s76.na.99999999)  then 

GcnAdminToSales76  »  OBLE(GeneralAndAdmin76)/Sales76 
ELSE 

GenAdminToSalM76  =  9999.0 
ENDIF 

lP(Gen  AdminToSal*s7S .  nc. 9999 . 0).and. 
(GenAdminToSales76.ne.9999.0}  then 
GenAdmlnToSales7576  -  (GenAdminToSales75  ♦ 
GenAdniinToSales76)/2 
ELSE 

GenAdminToSales7576  «  9999.0 
ENDIP 

Gross  Plant,  Property,  and  Equipment  •** 
IP((GrossPlantPropEquipTrac75  .eq . 9999999) .  and . 
(QrossPlantPropEqulpNonTrac7S.eq.9999999))  then 
GrossPlantPropEquip75  «  9999999 
ELSE 

IP<QrossPlantPropEquipTrac7S  .eq.9999999)  then 
GrossPlantPropEquipTrac75  •  0 
ENDIP 

IP(GrossPlantPropEquipNonTrac7S .eq.9999999)  then 
GrossPlantPropEquipNonTrac75  •  0 
ENDIP 

GrossPlantPropEquip75  =  GrossPlantPropEquipTrac75  4- 
GrossPlantPropEquipNonTrac75 
ENDIP 

IP((GrossPIantPropEquipTrac76.eq.9999999).and. 
(GrossPlantPropEquipNonTrac76.eq.9999999))  then 
GrossPlantPropEquip76  «  9999999 
ELSE 

IP<GrossPlantPropEquipTrac76  .eq  .9999999)  then 
GrossPlantPropEquipTrac76  «  0 
ENDIP 

IP(GrossPlantPropEquipNonTrac76.eq.9999999)  then 
GrossPlantPropEquipNonTrac76  *  0 
ENDIP 

GrossPlantPropE(iuip76  *  GrossPlantPropEquipTrac76  * 
GrossPlantProp^uipNonTrac76 
ENDIP 


Inventories 

IP((lnvcnThisYearTrac75.eq.9999999).and. 
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<InvenThisYearNonTrac75.eq.9999999))  then 
InvenThisYear75  »  9999999 
ELSE 

lP(lnvcnThiaYcarTrac7S.eq.9999999)  InvcnThisYearTrac75  >  0 
IP(InvenThisYcarNonTrac75  .eq . 9999999)  then 
InvenThisYcarNonTrac75  >  0 
ENDIP 

InvcnThisYcar7S  »  InvenThisYearTrac75  ♦ 
lnvenThisYearNonTrac75 
ENDIP 

IP<(InvenThisYearTrac76.eq.9999999).and. 
(lnvenThisYcarNonTrac76.tq.9999999))  then 
InvenThisYear76  »  9999999 
ELSE 

IP(lnvenThisYearTrac76.tq.9999999)  InvcnThisYcarTrac76  »  0 
IPOnvcnThisYcar NonTr ac76  .cq . 9999999)  then 
InvenThisYearNonTrac76  •  0 
ENDIP 

InvenThlsYear76  =  lnvenThlsYearTrac76  ♦ 
InvenThisYearNonTrac76 
ENDIP 

IP((lnvenLastYearTrac7S.eq.9999999).and. 
(lnvcnLastYearNonTrac7S.eq.9999999))  then 
lnvenLastYear75  *  9999999 
ELSE 

IP(InvenLastYearTrac75.eq.9999999)  InvenLastYearTrac75  >  0 
IP(InvenLastYearNonTrac7S.eq.9999999)  then 
InvenLastYearNonTrac75  •  0 
ENDIP 

InvenLastYear75  -  lnvenLastYearTrac75  ♦ 
InvenLastYearNonTrac75 
ENDIP 

IP((lnvenLastYearTrac76.eq.9999999).and. 
(InvenLastYearNonTrac76  .eq  .9999999))  then 
lnvenLastYear76  »  9999999 
ELSE 

IP(InvenLa5tYearTrac76.eq. 9999999)  InvenLastYearTrac76  »  0 
IP(lnvcnLastYearNonTrac76  .eq . 9999999)  then 
InvcnLastYearNonTrac76  >  0 
ENDIP 

InvenLastYear76  ■  InvenLastYearTrac76  * 
InvenLastYearNonTrac76 
ENDIP 

**•  Other  Assets  ••• 

IP((AUOtherAssetsTrac75.eq.9999999).and. 
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(A110therAssetsNonTrac75.eq.9999999))  then 
A110thcrAssets75  *  9999999 
ELSE 

IP(A110therAsMtsTrae7S.e<(.9999999)  then 
Another AssetsTrac7S  »  0 
ENDIF 

IF(A110therA»sctsManTrac7S.cq.9999999)  then 
A110therAssetsNonTrac7S  »  0 
ENOIP 

A110therAssets75  •  AUOtherAssetsTrac75  * 
Another  AssetsNonTrac75 
ENOIP 

IPCAllOther  AssetsTrac76  eq . 9999999). and . 

(Another AssctsNonTrac76.eq .9999999)  then 
AnOtherAssets76  *  9999999 
ELSE 

IP(AnOtherAssetsTrac76.eq.9999999) 

Another  AssetsTrac76  *  0 
1P(  Another  AssetsNonTrac76  .eq . 9999999) 

Another AssetsNonTrac76  •  0 

Another Assets76  «  AnOtherAssetsTrac76  * 

Allot  her  AssetsNonTrac76 
ENOIP 

•••  Advcrtisinti/Sales  Ratio 
IP((MedAdvExp76.ne.999999).and. 
(Sales76.ne.99999999))  then 
LBAOV76  a  OBLE(MedAdvExp76)/OBLE(Sales76) 
ELSE 

LBAOV76  »  9999.0 
ENOIP 

IF«MedAdvExp75  .ne.999999).and . 
(Sales7S.ne.99999999))  then 
LBAOV75  «  OBLE(MedAdvExp75)/OBLE(Sales75) 
ELSE 

LBAOV75  ■  9999.0 
ENOIP 

IP(LBAOV75.ne.9999.0).and.(LBAOV76.ne.9999.0)  then 

LBAOV7576  »  (LBAOV75  ♦  LBAOV76)/2 

ELSE 

LBAOV7576  -  9999,0 
ENOIP 

Capital  Output  Ratio 

IP((GrossPlantPropEquip75.ne.9999999).and. 
(Sales75.ne.99999999))  then 


KOftc75  s  DBLE(GrossPlantPropEquip75}/DBLE(Sales75) 
ELSE 

KOftc75  =  9999.0 
ENDIP 

IF((GrossPlantPropEquip76.ne.9999999}.and. 
(Salcs76.nc.99999999))  then 

KOftc76  s  DBLE(GrossPlantPropEquip76)/DBLE(SalM76) 
ELSE 

KO£tc76  -  9999.0 
ENDIP 

lP(KOftc76.ne.9999.0).and.(KOftc75.ne.9999.0)  then 
KOftc7576  =  (KOftc75  ♦  KO£tc76>/2 
ELSE 

KOftc7576  «  9999.0 
ENDIP 

***  R  &  D/Sales  Ratio  *** 

lF(RandD75.ne.9999999).and.(Sales75.ne.99999999>  then 
LBRD75  «  DBLE(RandD7S)/DBLE(Sales75) 

ELSE 

LBHD75  *  9999.0 
ENDIP 

lP(RandD76.ne.9999999).and.(SaIes76.ne.99999999)  then 
LBRD76  -  DBLE(RandD76)/DBLE(SaIes76) 

ELSE 

LBRD76  »  9999.0 
ENDIP 

IP(LBRD75.nc.9999.0).and.(LBRD76.nc.9999.0)  then 
LBRD7576  «  (LBRD7S  *  LBRD76)/2 
ELSE 

LBRD7576  =  9999.0 
ENDIP 

DeprToSales 

IP(DeprTo8alcs79.ne.9999999).and.(Sales75.ne.99999999)  then 
DeprToSales7S  >  DBLE(Depr75}/DBLE(Sales75) 

ELSE 

DcprToSaIes75  -  9999.0 
ENDIP 

IP(DeprToSaIes76.ne.9999999).and.(SaIes76.ne.99999999)  then 
DcprToSales76  -  DBLE(Depr76}/DBLE(Sales76) 

ELSE 

DeprToSales76  -  9999.0 
ENDIP 

IP((Depr  ToSaIes7  5 .  ne . 9999 . 0) .  and . 

(DcprToSales76.ne.9999.0})  then 


DcprToSalcs7576  »  (DcprToSales75  *  DeprToSales76)/2 
ELSE 

DeprToSales7576  *  9999.0 
ENDIP 

Operating  Incomc/Sales 
lF((OpcratingIncome7S .  ne.999999).anil . 
(Salcs75.nc.99999999))  then 

LBOPI75  «  DBLE(OperatingIncome75)/DBLE(Sales7S) 
ELSE 

LBOPnS  >  9999.0 
ENDIP 

IP((OperatingIncome76.ne.999999).and. 
(Sales76.ne.99999999))  then 

LBOPI76  a  OBLE(OperatingIncome76)/DBLE(Sales76) 
ELSE 

LBOPI76  -  9999.0 
ENDIP 

IP(LBOPI75.ne.9999.0}.and.(LBOPI76.ne.9999.0)  then 
LBOPI7S76  >  (LBOPI7S  ♦  LBOPI76)/2 
ELSE 

LBOPI7S76  -  9999.0 
ENDIP 

•••  Capacity  Utiliiation 

IP(Sales7S.ne.99999999).and.(Sales74.ne.99999999)  then 
LBCU75  »  DBLE(Sales7S)/DBLE(Sales74) 

ELSE 

LBCU75  =  9999.0 
ENDIP 

IP(Sales76.ne.99999999).and.(SaIes75.ne.99999999)  then 
LBCU76  «  DBLE(8ales76)/DBLE(Sales79) 

ELSE 

LBCU76  «  9999.0 
ENDIP 

IP(LBCU75.ne.9999.0).and.(LBCU76.ne.9999.0)  then 
LBCU7576  »  <LBCU75  ♦  LBCU76)/2 
ELSE 

LBCU7S76  »  9999.0 
ENDIP 

IP(LBCU75.gt.l)  LBCU7S  -  I 
IF(LBCU76.gt.l)  LBCU76  «  1 
IF(LBCU7576.gt.l)  LBCU7576  «  1 

Change  In  Inventories  *** 
IP((lnvenThisYear75.ne.9999999).and. 


(InvtnLastYear7S.ne.9999999))  then 

Deltalnvcntory7S  «  InvenThisYear75  -  InvenLastYear7S 

D*ltalnv*ntory75  ■  999 
ENDIP 

IP((lnvcnThisYcar76.nc.9999999).and. 
(lnvenLastYaarTrac76.na.9999999))  than 
DeltaInventory76  >  InvanThisYear76  -  InvenLastYear76 
ELSE 

DaltaInvcntory7&  >  999 
ENDIP 

Assats/Salcs  *** 

IP((GrossPlantPropEquip75.nc.9999999).and. 
(DaltaInvantory7S.na.999).and. 
(A110tharAsscts7S.nc.9999999).and. 
(LBCU7S.na.999).and.(Salcs7S.na.99999999))  than 
LBASS75  s  OBLE(GrossPlantPropEquip75  * 
Oaltalnvantory79  AUOtharAssats75)  * 
(DBLE(LBCU7S)/DBLE(Salas7S)) 

ELSE 

LBASS7S  -  9999.0 
ENDIP 

IP((GrossPlantPropEquip76.na.9999999).and. 
(DaltaInvcntory76.na.999).and. 
(AUOtharAssats76.na.9999999).and. 
(LBCU76.na.999).and.(SaIas76.na.99999999))  than 
LBASS76  a  DBLE(Gro»aPlantPropEquip76 
DaltaInvantory76  *  A110tharAssats76)  * 
<DBLE(LBCU76)/DBLE(Salas76)} 

ELSE 

LBASS76  >  9999.0 
ENDIP 

IP(LBASS7S.na.9999.0).and.(LBASS76.na.9999.0}  than 
LBA8S7976  «  (LBASS79  ♦  LBA^6)/2 
ELSE 

LBASS7576  -  9999.0 
ENDIP 

•••  Prlca-Cost  Margin  ••• 

IP((Salas76 .  na.99999999).and. 
(MatarialsUsad76.na.99999999).and. 

(PayrolI76 .  na.9999999).and  .(DaUaInvantory76  .na.999) 
.and.(Salas76.na.99999999))  than 

PCM76  >  DBLE(Salas76  -  MatarialsUsad76  -  Payroll76  - 
DaItaInvantory76)/DBLE(Salas76) 


PCM76  *  9999.0 
ENDIP 

lP((S»lM7S.n«.99999999).and. 

(MatcrialsUscd7S.nc.99999999).and. 

(PayroU75.nc.9999999).and.(DcltaInvcntory75.ne.999).and. 
(SaUs7S.na.99999999))  than 

PCM7S  *  DBLE(Salas7S  >  MatarialsUsad75  -  PayroU7S  - 
Dcltalnvantory75)/OBLE(Salas75) 

ELSE 

PCM7S  *  9999.0 
ENDIP 

IP(PCM75.na.9999.0).and.(PCM76.na.9999.0)  than 
PCM7S76  -  (PCM76  ♦  PCM75)/2 
ELSE 

PCM7S76  «  9999.0 
ENDIP 

Adjusted  PCM  ••• 

IP<(PCM7S.na.9999.0).and.(LBADV75.na.9999.0).and. 
(LBRD75.ne.9999.0).and.(DeprToSales75.na.9999.0))  then 
AdjPCM7S  -  PCM7S  -  LBADV75  -  LBRD75  -  DaprToSalas75 
ELSE 

AdJPCM75  •  9999.0 
ENDIP 

IP((PCM76.nt.9999.0).and.(LBADV76.ne.9999.0).and. 
(LBRD76.ne.9999.0).and.(DeprToSaIes76.nc.9999.0})  then 
AdjPCM76  »  PCM76  -  LBADV7(  -  LBRD76  -  DeprToSalas76 
ELSE 

AdJPCM76  -  9999.0 
ENDIP 

IP((PCM7576.ne.9999.0).and.(LBADV7576.ne.9999.0).and. 
(LBRD7576.ne.9999.0).and.(DeprToSales7576.ne.9999.0))  then 
AdjPCM7576  *  PCM7576  -  LBADV7576  -  LBRD7576  - 
DeprTo8ales7576 
ELSE 

AdJPCM7576  ■  9999.0 
ENDIP 

DerPCM  ••• 

IP((PCM76.ne.9999.0).and.(LBADV75.ne.9999.0).and. 
(LBRD75.ne.9999.0).and.(DeprToSales75.ne.9999.0).and. 
(General  And  Admin75 .  ne . 9999 . 0) .  and . 

(Sales75.ne.99999999))  then 

DerPCM75  ■  PCM75  -  LBADV75  -  LBRD75  -  DeprToSales75  - 
QenAdminToSaIes75 


DerPCM75  «  9W.0 
ENDIP 

IF((PCM76.na.9999.0).and.(LBADV76.n«.9999.0).and. 

(LBRD76.nc.9999.0).and.(OeprToSalcs76.ne.9999.0).and. 

(<icncralAndAdmin76.nc.9999.0).and. 

(SalM76.na.99999999))  than 

DcrPCM76  «  PCM76  -  LBADV76  -  LBRD76  -  DcprTo8alas76  - 
GanAdminToSales76 
ELSE 

DarPCM75  *  9999.0 
ENDIP 

IP((PCM7S76.na.9999.0).and.<LBADV7576.na.9999.0).and. 
(LBRD7576 .nc.9999 .0).and.(DeprToSalcs7576  .na.9999 .0))  than 
DarPCM7S76  »  PCM757&  -  LBAOV7576  -  LBRD7576  - 
OcprToSalcs7576  -  GtnAdmlnTo8alas7576 
ELSE 

DarPCM75  *  9999.0 
ENDIP 

•**  Output  •** 

writa<3,i03)  SIC,LBADV76,LBADV7S,LBADV7S76,KOftc75,KOftc76 
KOftc7576,LBRD7S,LBRD76,LBRD7576,DaprToSalas75, 
DaprToSalcs76.DaprToSalas7S76,LBOPr75,LBOPI76, 
LBOPI7576,LBCU75,LBCU76,LBCU7576, 
PCM76,PCM75.PCM7S76,LBASS75.LBASS76,LBASS7S76. 
AdJPCM76,AdJPCM75,AdJPCM7S76, 
DarPCM76,DarPCM75,D#rPCM7576, 
GenAdminToSalcs7S,GcnAdminToSales76, 
GcnAdminToSalcs7576 

format(l4,6P10.4y,6P10.4y,6P10.4/,6P10.4y,6P10.4y, 

3P10.4) 

ELSE 

writaC*  *)  'PTCCoda75:  •,PTCCoda75 
writa<*,''')  'PTCCode76:  •,PTCCoda76 
PAUSE 
goto  150 
ENDIP 

writa(*  *)  SIC 


program  Mastcrbiiild 
IMPUCIT  NONE 
integer  SIC,NCO,CSIC 

double  precision  M1D,MES.C0&,CAR,I,C4.K075,K076,K07576 
double  precision  AdvrToSales.ExportsToSales.ImportsToSales 
double  precision  GROW 

double  precision  Payroll7S.PayroU76,VAdd75,VAdd76 
double  precision  VShip7S,VShip76,Disp 

double  precision  ExportsToSales,lmportsToSales,AdverToSales 

double  precision  PTCCode75jn'CCodc76 

double  precision  LBAOV76,LBADV75,LfiAJDV7S76 

double  precision  KOftc75,EOftc76,XOftc7S76 

double  precision  LBR07S,LBRD76,LBR07576 

double  precision  DeprToSaies75,DeprTo8ales76,OeprToSales7576 

double  precision  LBOPI75,LBOPI76,LBOPI7576 

double  precision  LBCU7S,LBCU76,LBCU7576 

double  precision  PCM75,PCM76,PCM7576 

double  precision  CPCM75.CPCM76.CPCM7576 

double  precision  INDPCM7S.INDPCM76.INOPCM7576 

double  precision  LBASa75,LBASS76,LBASS7576 

double  precision  GcnAdininToSales75,GenAdminToSales76 

double  precision  GenAdminToSales757(^ 

double  precision  INDPCM7S,INDPCM76,INDPCM7576 

double  precision  DerINDPCM75,OerINDPCM76,DerINDPCM7576 

double  precision  AdjPCM75,AdJPCM76,AdJPCM7576 

double  precision  OcrPCM75.DerPCM76,DerPCM7576 

double  precision  MCDR,MESD20 

character  Charin*! 

OPENd  ,F1LE« '  DataBase'  ,STATU8>'OLD’ ,  ACCESS>  'SEQUENTIAL' , 
PORM-'PORMATTED'.POSmON-'APPEND', 

ACTION>'READ') 

OPEN(2,PILE>'PTCOataBase',STATUS«'OLD',ACCESS»'SEQUENTIAL', 
PORM«'PORMATTEO' , 

ACTION-'READ') 

OPEN(3,nLE*'MasterData',STA'rUS-'NEW',ACCESS-'3EQUENTIAL', 

PORM>'PORMATTED', 

ACTION-'WRITE') 

REWINOd) 

REWIND(2) 

REWIND<3) 

SIC  >  0 
CSIC  >  0 
NCO  -  0 
Disp  •  0.0 
MCOR  >  0.0 


MESD20  -  0.0 

Payroll76  »  0.0 

Payroins  *0.0 

VAdd76  a  0.0 

VAdd75  a  0.0 

VShip76  a  0  .0 

VShip75  a  0.0 

Payroll75  *  o 

PayToll76  ■  0 

GcnAdminToSales7S  >0.0 

QenAdxninToSal«s76  >0.0 

G«nAdminToSalcs7S76  >0.0 

LBADV75  a  0.0 

LBADV76  a  0.0 

LBADV7576  a  0.0 

KOftc75  a  0  .0 

KOftc76  a  0.0 

KOftc7576  a  0  .0 

LBRD79  a  0.0 

LBRD76  a  0.0 

LBR07S76  a  0.0 

0*prToSalcs7S  *0.0 

0*prToSalM76  a  0.0 

DcprToSalcs7976  a  o.O 

LBOPI75  a  0.0 

LBOPne  a  0.0 

LBOPI7S76  a  0.0 

LBCU75  a  0.0 

LBCU76  a  0.0 

LBCU7576  -  0.0 

LBCU75  a  0.0 

LBCU76  a  0.0 

LBCU7576  >0.0 

PCM75  a  0.0 

PCM76  a  0.0 

PCM7576  a  0.0 

INOPCM75  a  0.0 

1NOPCM76  a  0.0 

INDPCM7576  >0.0 

OtrINDPCM79  >0.0 

D«rlNDPCM76  -  0.0 

OtrINDPCM7576  >0.0 

LBAS875  a  0.0 

LBASS76  a  0.0 

LBASS7576  >0.0 

MID  a  0.0 

MIS  a  0.0 

CDR  a  0  .0 


CAR  >  0.0  ^ 

I  ■  0.0  py 

C4  ■  0.0 
K075  «  0.0 
K076  «  0.0 
K07576  ■  0.0 
AdvrToSalM  >0.0 
ExportsToSales  >0.0 
ImportsToSalcs  »  0.0 
GROW  >  0.0 
CPCM75  >  0.0 
CPCM76  >  0.0 
CPCM7576  «  0.0 
Charin  ■  '  ' 

r*ad(l,10i)  CSIC,Oisp,CPCM7576,CPCM75.CPCM76,C4,MID,MES, 
COR,CAR,I.K075,K076,K07576.AdvrToSales,GROW,NCO, 
VShip75,VShip76,Payroll75,PAyroU76,VAdd75,VAdd76, 
ImportsToSalcs.ExportsToSales.MCOR.MESD20 
format<M  ,5P10 .4^  .4P10 .4y,6P10.4.15y  .6P10 .2y.4P10 .4) 
rtad(2,103)  SIC,LBAOV76,LBAOV7S,LBADV7576,KOftc7S,KOftc76, 
KOftc7S76.LBR07S.LBRD76.LBRD7576.DeprToSalcs75, 
DcprToSalca76.0cprToSalcs7576,LB0PI75,LB0Pr76, 

LBOPI7S76,LBCU7S,LBCU76,LBCU7576, 

PCM76,PCM75,PCM7576,LBASS75,LBASS76,LBASS7576, 

AdJPCM76,AdjPCM75,AdjPCM7576, 

DerPCM76,DtrPCM75,DtrPCM7576, 

GcnAdminToSalts7S,GcnAdminToSalts76, 

GcnAdininToSalcs7S76 

format04.6F10.4y,6P10.4y.6F10.4y,6F10.4,/,6F10.4y, 

3P10.4) 

IF(SIC.cq.CSIC).and.(SIC.nc.O).and.(CSIC.nc.O)  then 


Rawnscraft's  Price-Cost  Margin 
IP(PCM75.nc.9999.0).and.(LBADV75.nc.9999.0).and. 
(OcprToSalcs7S  .nc.9999 .0).and.(LBRD75  nc. 9999.0)  then 
INOPCM75  «  (CPCM75  -  LBAOV75  -  DeprToSales75  -  LBR07S) 
ELSE 

INDPCM75  -  9999.0 
ENDIF 

IF(PCM76.ne.9999.0).and.(LBAI)V76.ne.9999.0).and. 
(OeprToSales76.ne.9999.0).and.(LBRD76.ne.9999.0)  then 
INDPCM76  «  (CPCM76  -  LBAOV76  -  OeprToSales76  -  LBRD76) 
ELSE 

INOPCM76  >  9999.0 
ENDIF 

lF(PCM7576.ne.9999.0).and.(LBAOV7576.ne.9999.0).and. 
(DeprToSales7576.ne.9999.0).and.(LBRD7576.ne.9999.0)  then 
INOPCM7S76  >  (CPCM7576  -  LBADV7576  -  DeprToSales7576 


I 


-  LBRD7576) 

ELSE 

INOPCM7576  *  9999.0 
ENDIP 


•••  Definitional  Price  -  Co»t  Margin 

lP(lNDPCM75.ne.9999.0).and.(GenA(lminToSale«75.ne.9999.0)  then 
DerlNDPCM7S  «  INOPCM7S  -  GenAdminToSales7S 
ELSE 

DerINOPCM7S  «  9999.0 
ENDIP 

IP(lNDPCM76.ne.9999.0).and.(GenAdininToSales76.ne.9999.0)  then 
DerINDPCM76  >  INDPCM76  -  GenAdminToSales76 
ELSE 

DerINDPCM76  «  9999.0 
ENDIP 

lP(INDPCM7S76.ne.9999.0).and. 

(GenAdminToSales7576.ne.9999.0)  then 
DerlNDPCM7576  -  1NDPCM7S76  -  QenAdminToSales7576 
ELSE 

DerINDPCM7576  >  9999.0 
ENDIP 

write(3,10S)  SIC, 

AdvrToSales,LBADV76,LBADV75,LBADV7576, 

K075,K076,K07576,K0ftc75,E0ftc76,E0ftc757b, 

LBRD75,LBRD76.LBRD7576, 

DeprToSales7S,DeprTo8aIee76,DcprToSales7576, 

LBOPr75,LBOPI76,LBOPnS76,LBCU75,LBCU76,LBCU7576, 

LBASS75.LBASS76.LBASS7576. 

MID,MES.CDR,CAR,MCDS,MESD20, 

CPCM7576,CPCM75,CPCM76,PCM76,PCM75,PCM7576, 

INDPCM75,INDPCM76,INDPCM7576, 

DerINDPCM75,DerINDPCM76,DerINDPCM7576, 

AdJPCM75.AdJPCM76,AdJPCM7576,DerPCM75,DerPCM76. 

DerPCM7S76,Dlsp,C4,I,EzportsToSales,ImportsToSaIes,QROW, 

NCO 

format(M.4P10.4y.6F10.4y,6P10.4y,6PI0.4y.5PI0.4y, 

6P10 .4y  ,6P10 .4  y  ,6PI0 .4  y  ,6P10 .4  y  ,6P10 .4 ,15> 
writeC*,*)  SIC 
goto  1 
ELSE 

wrlte(»,*)  'CSIC  :',CSIC 
write(*,*)  'SIC  :',SIC 
PAUSE 


flooendix  £i  QgaifiC  Mfl  fiflSfi 


SIC 

CPCI17576 

CPCn75 

IBBPITS 

LB0PI76 

LBIIPI56 

f:; 

3264 

.3079 

.2965 

.3193 

.0994 

.1107 

.1050 

3273 

.2326 

.2300 

.2352 

-.0031 

-.0007 

-.0019 

If- 

3274 

.3299 

.3300 

.3297 

.1015 

.1475 

.1245 

3275 

.2408 

.2449 

.2366 

.0640 

.0661 

.0651 

3291 

.3303 

.3277 

.3328 

.1377 

.1561 

.1469 

's'-:; 

3292 

.3122 

.3016 

.3227 

.0904 

.0750 

.0067 

tka? 

3296 

.3590 

.3551 

.3629 

.1193 

.1511 

.1352 

PE.. 

3331 

.0965 

.0453 

.1477 

-.0581 

.0399 

-.0091 

.  • ,  J 

3332 

.1352 

.1175 

.1529 

.0921 

.1310 

.1115 

3333 

.1988 

.2321 

.1656 

.0669 

.0669 

.0669 

3334 

.2722 

.2838 

.2607 

.0412 

.0647 

.0529 

I" 

3339 

.3624 

.5055 

.2193 

.1831 

.0920 

.1375 

3357 

.2062 

.2141 

.1983 

.0967 

.0687 

.0827 

3411 

.2448 

.2430 

.2465 

.0664 

.0707 

.0685 

■"'-***! 

3412 

.2240 

.2204 

.2276 

.0733 

.0748 

.0740 

A 

3421 

.4701 

.4654 

.4749 

.2550 

.2523 

.2536 

3429 

.3069 

.2922 

.3215 

.1085 

.1278 

.1182 

3431 

.2642 

.2540 

.2743 

.0083 

.0527 

.0305 

3432 

.3062 

.2900 

.3224 

.1404 

.1528 

.1466 

3433 

.2521 

.2367 

.2675 

.0022 

.0443 

.0232 

HI 

3441 

.2348 

.2494 

.2201 

.1281 

.1239 

.1260 

3442 

.2315 

.2251 

.2378 

-.0189 

.0628 

.0220 

3443 

.2694 

.2580 

.2807 

.0456 

.0479 

.0467 

3465 

.2284 

.2200 

.2367 

.0786 

.0880 

.0833 

3466 

.2713 

.2703 

.2724 

.0949 

.1101 

.1025 

m 

3469 

.2553 

.2537 

.2568 

.0965 

.1225 

.1095 

3494 

.3246 

.3272 

.3221 

.1098 

.1063 

.1080 

3511 

.2766 

.2591 

.2941 

.0175 

.0446 

.0311 

3519 

.2235 

.2165 

.2305 

.0603 

.0878 

.0741 

^ 

*  ^*4 

3523 

.2679 

.2613 

.2745 

.1056 

.1164 

.1110 

3524 

.2143 

.1950 

.2335 

.0303 

.0576 

.0440 

3531 

.2475 

.2513 

.2436 

.0909 

.0870 

.0889 

3532 

.2654 

.3010 

.2290 

.1368 

.1251 

.1310 

3533 

.4022 

.4226 

.3618 

.1675 

.1400 

.1542 

.'J 

3534 

.2475 

.2588 

.2362 

-.0045 

-.0004 

-.0024 

3535 

.2809 

.2699 

.2920 

.0676 

.0974 

.0825 

3536 

.2721 

.2617 

.2826 

.1100 

.1096 

.1138 

3537 

.1860 

.1754 

.1965 

-.0658 

.0058 

-.0300 

3541 

.3088 

.2896 

.3280 

.1016 

.0968 

.0992 

m 

F  -  2 

I'-'X' 

F  -  3 


SIC 

iyctl7576 

CPCn75 

CPCn76 

IMPI75 

LBQP1I6 

lJflPI56 

VS 

vS 

vS 

vS 

3515 

.3371 

.3351 

.3393 

.0955 

.0909 

.0932 

r-'Cv 

3516 

.3711 

.3621 

.3863 

.0920 

.1001 

.0962 

K 

3551 

.2611 

.2697 

.2532 

.0577 

.0920 

.0719 

•  •  •  • 

3552 

.2722 

.2818 

.2626 

-.0827 

-.0121 

-.0621 

' 

•  -  k  "V 

3553 

.3009 

.3159 

.2659 

.0976 

.1121 

.1019 

<  k  1 

•  ^  ^ 

3551 

.2229 

.2231 

.2226 

.0827 

.1186 

.1157 

3555 

.2657 

.2621 

.2690 

-.0051 

.0190 

.0068 

PS 

3559 

.2951 

.2897 

.3011 

.0160 

.0629 

.0515 

3561 

.2966 

.2938 

.2999 

.1191 

.1323 

.1109 

V  '♦  y- 

3562 

.2782 

.2757 

.2806 

.0679 

.0672 

.0675 

3563 

.3052 

.3105 

.2996 

.0788 

.1028 

.0908 

ii^ 

3561 

.2857 

.2717 

.2997 

.0706 

.0896 

.0801 

3566 

.3112 

.3316 

.3536 

.1777 

.1823 

.1800 

3567 

.2797 

.2761 

.2830 

.0025 

.1039 

.0932 

3566 

.3292 

.3233 

.3351 

.1300 

.1187 

.1211 

/-■>' 

3573 

.3161 

.2801 

.3520 

.1318 

.1611 

.1196 

3571 

,1723 

.1712 

.1731 

.0809 

.0268 

.0538 

3576 

.1066 

.3891 

.1238 

.0916 

.1271 

.1096 

•  *•  **■ 

3585 

.2637 

.2123 

.2051 

.0066 

.0581 

.0321 

3612 

.2693 

.2611 

.2772 

.0272 

.0701 

.0107 

3613 

.3376 

.3255 

.3198 

.0087 

.1016 

.0967 

Rr 

3621 

.2975 

.2766 

.3182 

.0906 

.0909 

.0908 

3622 

.3062 

.2913 

.3100 

.0863 

.0828 

.0016 

3623 

.2538 

.2629 

.2117 

.1083 

.0573 

.0828 

3621 

.3858 

.1150 

.3565 

.1830 

.1610 

.1720 

3629 

.2891 

.2718 

.3010 

.0909 

.0728 

.0819 

3631 

.2770 

.2559 

.2982 

.0217 

.0626 

.0137 

3632 

.2501 

.2210 

.2798 

.0179 

.0503 

.0191 

3633 

.2899 

.2651 

.3111 

.0668 

.0820 

.0711 

3635 

.3712 

.3113 

.3980 

.1116 

.1328 

.1237 

3611 

.1721 

.1767 

.1675 

.1512 

.1766 

.1639 

3651 

.2215 

.1910 

.2500 

.0158 

.0160 

.0309 

3652 

.3602 

.3512 

.3693 

.0926 

.0661 

.0791 

3671 

.3161 

.2996 

.3325 

-.0320 

.0312 

-.0001 

nr  V  *1 

3691 

.2699 

.2566 

.2832 

.0515 

.0758 

.0636 

•*, 

3692 

.3050 

.3709 

.3991 

.1619 

.1997 

.1800 

3691 

.2910 

.2673 

.3207 

.1166 

.1186 

.1176 

3711 

.2390 

.2200 

.2500 

.0913 

.1175 

.1059 

3715 

.1092 

.1033 

.1952 

-.0125 

.0010 

-.0012 

1 

*  fci*  *■  *>*  •  *  aiili'aiiala  Alia  il . iifcJUfcJfci^jC« 


IHDPCn  INOPCn  INOPCtI 

-75  76  -7576  man 


SIC 

IC075 

IC076 

-J5_ 

-2526 

2612 

.3161 

.3089 

.3125 

.1256 

.3607 

.3931 

2613 

.2891 

.2870 

.2881 

.3782 

.3566 

.3671 

2617 

.2273 

.2187 

.2230 

.7888 

.7822 

.7855 

2618 

.2253 

.2170 

.2211 

.2919 

.2789 

.2851 

2813 

1.3675 

1.2819 

1.3262 

1.5193 

1.5176 

1.5331 

2816 

.8801 

.7051 

.7926 

1.1962 

1.0036 

1.0999 

2821 

.7281 

.6119 

.6700 

.9136 

.8060 

.8718 

2822 

.1690 

.1212 

.1166 

.9358 

.8165 

.8762 

2811 

.1556 

.1380 

.1168 

.2219 

.2016 

.2132 

2879 

.3338 

.3865 

.3601 

.1137 

.1896 

.1666 

2892 

*««« 

«««« 

«*«* 

.1110 

.1615 

.1513 

3221 

.5202 

.5115 

.5309 

.5712 

.5690 

.5716 

3229 

.7503 

.6703 

.7103 

.9791 

.0535 

.9163 

3261 

.5200 

.1687 

.1913 

.7557 

.5921 

.6739 

3261 

.6075 

.5991 

.6033 

.6130 

.7385 

.6907 

3273 

.1630 

.1308 

.1169 

.1603 

.1182 

.1512 

3271 

.9887 

.8911 

.9115 

1.3707 

1.1875 

1 .2791 

3275 

.9171 

.7591 

.8531 

1.2951 

1.1515 

1.2235 

3291 

.1019 

.3169 

.3711 

.6020 

.5326 

.5673 

3292 

.1808 

.1111 

.1176 

.5209 

.1925 

.5067 

3296 

.6271 

.5399 

.5835 

.7895 

.6091 

.7395 

3331 

.3559 

.3121 

.3312 

2.1816 

2.1739 

2.1777 

3332 

.1867 

.2213 

.2055 

.1775 

.5291 

.5033 

3333 

.1562 

.1572 

.1567 

1.0170 

1.0306 

1.0388 

3331 

.9977 

.7876 

.8926 

1.1125 

1.1186 

1.2956 

3339 

1.1271 

.8573 

.9922 

1.0990 

1.3651 

1.2322 

3357 

.3991 

.3600 

.3797 

.5160 

.5031 

.5097 

3111 

.3157 

.2909 

.3033 

.1569 

.1113 

.1356 

3112 

.3170 

.3018 

.3109 

.1001 

.1102 

.1051 

3121 

.3158 

.2869 

.3013 

.1115 

.1155 

.1150 

3129 

.3617 

.3031 

.3325 

.1317 

.1076 

.1197 

3131 

.1260 

.3111 

.3702 

.6027 

.1655 

.5311 

3132 

.3078 

.2516 

.2812 

.3305 

.3199 

.3252 

3133 

.2796 

.2269 

.2532 

.1011 

.3618 

.3830 

3111 

.2228 

.2338 

.2283 

*««* 

«««« 

**** 

3112 

.2095 

.1972 

.2033 

.3393 

.2977 

.3185 

3113 

.2619 

.2766 

.2707 

.3535 

.3517 

.3511 

3165 

.5127 

.1135 

.1781 

.1316 

.3609 

.1017 

3166 

.3201 

.2691 

.3016 

.1117 

.3851 

.1136 

3169 

.3379 

.3070 

.3225 

.3966 

.3216 

.3606 

3191 

.3239 

.3306 

.3313 

.1171 

.1325 

.1219 

3511 

.1516 

.1305 

.1126 

.5223 

.1651 

.5037 

3519 

.3522 

.3366 

.3111 

.1626 

.1651 

.1611 

3523 

.2105 

.2077 

.2091 

.2509 

.2670 

.2589 

3521 

.1903 

.2063 

.2023 

.2195 

.2531 

.2513 

3531 

.2623 

.3015 

.2631 

.3601 

.1299 

.3952 

3532 

.2276 

.2203 

.2239 

.2330 

.2512 

.2136 

3533 

.2657 

.3320 

.3066 

.2273 

.3015 

.2611 

3531 

.3335 

.3596 

.3166 

.3292 

.3657 

.3175 

3535 

.1970 

.2037 

.2008 

.2129 

.2152 

.2111 

3536 

.2150 

.2351 

.2101 

.2820 

.3198 

.3009 

3537 

.2963 

.3056 

.3020 

.1535 

.1291 

.1113 

3511 

.3136 

.1001 

.3720 

.3825 

.1289 

.1057 

3515 

.3776 

.3596 

.3667 

.1111 

.1282 

.1211 

3516 

.2593 

.2197 

.2515 

.3931 

.3356 

.3615 

3551 

.2601 

.2651 

.2827 

.3171 

.3821 

.3619 

3552 

.1051 

.3926 

.3989 

.7111 

.8110 

.7776 

3553 

.2366 

.2516 

.2167 

.3905 

.3392 

.3619 

3551 

.2776 

.2796 

.2787 

.3021 

.3338 

.3179 

3555 

.3001 

.2769 

.2895 

.3726 

.3502 

.3611 

3559 

.2600 

.2655 

.2668 

.3010 

.3377 

.3209 

3561 

.3051 

.3030 

.3011 

.3810 

.3639 

.3810 

3562 

.5699 

.5606 

.5653 

.7165 

.6799 

.6962 

3563 

.2311 

.2237 

.2271 

.2718 

.2619 

.2681 

3561 

.2513 

.2117 

.2160 

.2700 

.2772 

.2736 

3566 

.1099 

.1271 

.1187 

.1010 

.1381 

.1197 

3567 

.2230 

.2223 

.2226 

.2711 

.2553 

.2631 

3566 

.3615 

.3923 

.3769 

.1115 

.1183 

.1311 

3573 

.2606 

.2265 

.2136 

.9765 

.8931 

.9319 

3571 

.3015 

.2976 

.3011 

.0830 

.1131 

.2630 

3576 

.2119 

.1960 

.2010 

.2360 

.2105 

.2362 

3565 

.3005 

.2199 

.2752 

.3571 

.2970 

.3270 

3612 

.3276 

.3166 

.3222 

.1101 

.1370 

.1387 

3613 

.2160 

.2135 

.2161 

.2865 

.2018 

.2856 

3621 

.3602 

.3390 

.3196 

.1291 

.3978 

.1135 

3622 

.2660 

.2110 

.2539 

.2669 

.2592 

.2611 

.6230 


.6919 


.9971 


5910 

.5870 

.5905 

5880 

.5919 

.5899 

3811 

.3656 

.3750 

7521 

.8560 

.8010 

1772 

.5012 

.1092 

5112 

.5232 

.5172 

6953 

.7933 

.7113 

6212 

.5972 

.6092 

5659 

.5098 

.5778 

8911 

**«« 

**** 

7121 

1.7183 

1.7302 

5961 

.6252 

.6107 

6123 

.7231 

.6829 

5015 

.5070 

.5013 

1978 

.7721 

.6351 

8761 

.8180 

.8622 

9871 

.9012 

.9111 

7618 

.6191 

.7069 

6270 

.6392 

.6331 

0869 

1.0635 

1.0752 

5922 

.6120 

.6021 

7768 

9.8671 

5.8221 

6519 

1.1399 

1.5159 

3637 

2.1717 

2.2692 

1291 

1.1187 

1.1210 

6816 

.6530 

.6688 

9139 

1.0839 

1.0139 

7918 

.8326 

.8122 

8500 

.8972 

.8736 

1003 

1.2996 

1.3510 

7107 

.9171 

.8289 

0215 

1.2215 

1.1215 

6701 

.7000 

.6052 

,7005 

1.1911 

1 .5973 

.3523 

1.1351 

1.3937 

.9869 

1.0010 

.9939 

.8128 

.8912 

.8670 

.1027 

1.0361 

1.0691 

LBCU  LBflSS 


SIC 

LBCV75 

LBCU76 

7576 

LBflS§75 

imsm 

_2526 

3554 

1.0000 

1.0000 

1.0000 

.9651 

1.0120 

.9805 

3555 

.8651 

.9719 

.9200 

.9075 

1.0231 

.9653 

3559 

1.0000 

1.0000 

1.0000 

10.2791 

10.2216 

10.2505 

3561 

1.0000 

1.0000 

1.0000 

.9200 

.9303 

.9252 

3562 

1.0000 

1.0000 

1.0000 

1.1952 

1.1137 

1.1515 

3563 

1.0000 

1.0000 

1 .0000 

.8267 

.7710 

.7989 

3561 

1 .0000 

1.0000 

1 .0000 

.7631 

.7613 

.7638 

3566 

1.0000 

1.0000 

1.0000 

.8350 

.8726 

.8538 

3567 

.8750 

1.0000 

.9999 

.8975 

.8597 

.8786 

3568 

1.0000 

.9601 

1.0000 

.7797 

.7781 

.7789 

3573 

1.0000 

1.0000 

1.0000 

1.6701 

1.5811 

1.6258 

3571 

.6079 

1.0000 

.8155 

.3396 

1.1658 

.7527 

3576 

1.0000 

1.0000 

1.0000 

.7805 

56.5102 

28.6151 

3585 

.8137 

1.0000 

1.0000 

.7551 

.8129 

.7810 

3612 

.8697 

1.0000 

.9127 

.7128 

.8057 

.7593 

3613 

1.0000 

1.0000 

1 .0000 

.6688 

.6911 

.6801 

3621 

.9381 

1.0000 

1.0000 

.7585 

.7786 

.7605 

3622 

.9179 

1.0000 

1.0000 

.6399 

.6853 

.6626 

3623 

.9855 

.8092 

.8973 

.6167 

.5033 

.6150 

3621 

1.0000 

1.0000 

1 .0000 

1.2501 

1.3135 

1.2818 

3629 

.6510 

1.0000 

.8167 

.5087 

.7123 

.6105 

3631 

.9397 

1.0000 

1.0000 

.6671 

.6398 

.6536 

3632 

.9811 

1.0000 

.9981 

.5612 

.5556 

.5581 

3633 

.9689 

1.0000 

1.0000 

.5812 

.5227 

.5519 

3635 

1.0000 

1.0000 

1.0000 

.6853 

.6363 

.6608 

3611 

1.0000 

1.0000 

1 .0000 

1.0790 

1.0213 

1.0502 

3651 

.9505 

1.0000 

1.0000 

.6117 

.6123 

.6120 

3652 

1.0000 

1.0000 

1.0000 

.8587 

.8173 

.8380 

3671 

.6120 

1.0000 

.9170 

.7130 

.9986 

.8708 

3691 

1.0000 

1.0000 

1.0000 

.9036 

10.1526 

5.5281 

3692 

1.0000 

1.0000 

1 .0000 

.8396 

.7918 

.8157 

3691 

.9881 

1.0000 

1.0000 

.8197 

.7871 

.8031 

3711 

.9701 

1.0000 

1.0000 

.7110 

.6510 

.6811 

3715 

.5983 

1.0000 

.9551 

.6299 

.9237 

.7768 

3721 

1.0000 

1.0000 

1 .0000 

.0329 

.7651 

.7990 

3792 

1.0000 

1.0000 

1.0000 

.1006 

.3883 

.3911 

3813 

.8208 

.9926 

.9107 

.6213 

56.8716 

20.7180 

3919 

.9878 

1.0000 

1.0000 

1.0753 

1.0722 

1 .0737 

F  -  19 


DeprTo 

DeprTo 

OeprTo 

LORD 

SIC 

So  16875 

50)6876 

$01687576 

LBRDI5 

Lfism 

7576 

2026 

.0111 

.0110 

.0110 

.0004 

**«« 

*««« 

2032 

.0161 

.0171 

.0166 

.0059 

.0064 

.0062 

2037 

.0201 

.0210 

.0206 

.0052 

.0053 

.0053 

2038 

.0176 

.0171 

.0174 

.0035 

.0043 

.0039 

2043 

.0147 

.0160 

.0154 

.0071 

.0099 

.0085 

2047 

.0165 

.0165 

.0165 

.0083 

.0092 

.0088 

2048 

.0104 

.0102 

.0103 

.0074 

.0076 

.0075 

2046 

.0211 

.0269 

.0240 

.0070 

.0071 

.0071 

2051 

.0215 

.0229 

.0222 

.0061 

.0021 

.0041 

2052 

.0150 

.0147 

.0149 

«•«« 

.0025 

«««« 

2063 

.0169 

.0291 

.0230 

.0033 

.0046 

.0040 

2065 

.0124 

.0129 

.0127 

.0030 

.0028 

.0029 

2066 

.0101 

.0091 

.0096 

.0037 

.0041 

.0039 

2067 

.0202 

«««« 

*«*« 

.0078 

««*« 

«*«* 

2085 

.0180 

.0178 

.0179 

.0021 

.0032 

.0027 

2086 

.0235 

.0242 

.0239 

.0007 

.0007 

.0007 

2087 

.0145 

6.1789 

3.0967 

.0060 

.0061 

.0061 

2095 

.0109 

.0087 

.0098 

.0064 

.0067 

.0066 

2253 

.0173 

.0138 

.0155 

»«** 

.0006 

«««8 

2254 

.0196 

.0189 

.0193 

.0021 

.0016 

.0019 

2641 

.0313 

.0288 

.0301 

.0144 

.0128 

.0136 

2642 

.0229 

.0214 

.0221 

.0018 

.0016 

.0017 

2643 

.0221 

.0175 

.0198 

.0071 

.0065 

.0068 

2647 

.0314 

.0313 

.0313 

.0203 

.0201 

.0202 

2648 

.0136 

.0161 

.0149 

.0017 

.0019 

.0018 

2813 

.0807 

.0817 

.0812 

.0121 

.0093 

.0107 

2816 

.0685 

.0592 

.0639 

.0302 

.0255 

.0278 

2821 

.0502 

.0427 

.0464 

.0332 

.0271 

.0302 

2822 

.0545 

.0485 

.0515 

.0327 

.0319 

.0323 

2844 

.0110 

.0103 

.0106 

.0231 

.0234 

.0232 

2879 

.0254 

.0284 

.0269 

.0494 

.0537 

.0516 

2892 

.0220 

.0256 

.0238 

.0163 

.0104 

.0133 

3221 

.0312 

.0316 

.0314 

**«« 

«»«* 

«»«* 

3229 

.0439 

.0393 

.0416 

.0405 

.0370 

.0387 

3261 

.0261 

.0230 

.0245 

.0043 

.0050 

.0047 

3264 

.0325 

.0343 

.0334 

.0207 

.0225 

.0216 

3273 

.0301 

.0281 

.0291 

«««« 

«««* 

***« 

F  -  20 


.0681 

• 

.0385 

• 

.0276 

• 

.0236 

• 

.0389 

■ 

.0608 

• 

.0203 

a 

.0112 

a 

.0197 

a 

.0111 

a 

.0287 

a 

.0233 

a 

.0152 

a 

.0151 

.0291 

a 

.0172 

a 

.0201 

a 

.0232 

a 

.0079 

.0168 

a 

.0187 

a 

.0198 

a 

.0237 

a 

.0181 

a 

.0227 

a 

.0311 

a 

.0323 

a 

.0116 

a 

.0169 

a 

.0260 

a 

.0138 

a 

.0151 

a 

.0121 

a 

.0109 

a 

.0159 

a 

.0301 

a 

.0181 

a 

.0212 

a 

F  -  21 

Exports  I sports 
£!£_  Toggle?  ToSoles 
2679  .1192  -.0113 

2892  .0531  -.0111 

3221  .0171  -.0065 

3229  .2071  -.2087 

3261  .0338  -.0191 

3261  .0865  -.0912 

3273  .0000  .0000 

3271  .0060  -.0311 

3275  .0136  -.0067 

3291  .0683  -.0711 

3292  .0713  -.0385 

3296  .0283  -.0113 

3331  .0221  -.1363 

3332  .0051  -.2120 

3333  .0063  -.9238 

3331  .0392  -.2621 

3339  .2653  -1.9271 

3357  .0172  -.0207 

3111  .0051  .0000 

3112  .0363  -.0569 

3121  .0381  -.1827 

3129  .0353  -.0338 

3131  .0318  .0000 

3132  .0286  -.0019 

3133  .0880  -.0176 

3111  .0251  -.0219 

3112  .0156  -.0006 

3113  .0570  -.0077 

3165  .0812  -.0081 

3166  .0713  -.0016 

3169  .0119  -.0111 

3191  .1058  -.0575 

3511  .3239  -.0121 

3519  .1110  -.0158 

3523  .1129  -.0913 

3521  .0503  -.0556 

3531  .2157  -.0595 

3532 


jica 

338 

6? 

31 

325 

51 

77 

1319 

61 

60 

351 

87 

95 
9 
1 
8 

13 

81 

215 

153 

120 

119 

1063 

96 
191 
681 

2319 

1198 

1683 

195 

12 

2511 

711 

69 

186 

1861 

136 

807 


I 


APPENDIX  G:  P  Comparison 


Entry 

1)  CPCM  -  £(I,Disp,KO,Advr,GHOW) 


K07576 

KOftc7576 

2.191352 

2.150000 

Reject 

K075 

KOftc75 

3.403467 

2.150000 

Reject 

K076 

KOftc76 

1.165505 

2.150000 

Accept 

AdvrToSales 

LBADV7576 

.432368 

2.150000 

Accept 

AdvrToSales 

LBADV75 

.353482 

2.150000 

Accept 

AdvrToSalss 

LBAOV76 

.333018 

2.150000 

Accept 

KOftc7576 

LBADV7576 

1.017766 

2.600000 

Accept 

KOftc75 

LBADV75 

1.694001 

2.600000 

Accept 

KOftc76 

LBAOV76 

.383762 

2.600000 

Accept 

LBOPI  >  f(l,Disp,KO,Advr,GROW) 

K07576 

KO£tc7576 

.189756 

2.150000 

Accept 

K075 

KOftc75 

.375316 

2.150000 

Accept 

K076 

ROftc76 

.134196 

2.150000 

Accept 

AdvrToSales 

LBAOV7576 

.275067 

2.150000 

Accept 

AdvrToSales 

LBAOV7S 

.229245 

2.150000 

Accept 

AdvrToSales 

LBADV76 

.355089 

2.150000 

Accept 

KOftc7576 

LBADV7576 

.273381 

2.600000 

Accept 

KOftc75 

LBADV7S 

.207639 

2.600000 

Accept 

KOftc76 

LBADV76 

.400633 

2.600000 

Accept 

CPCM  s  f(I,Disp,KO,Advr,GROW)  Case  Omitted 

K07576 

KOftc7576 

.801904 

2.150000 

Accept 

K075 

KOftc75 

1.133614 

2.150000 

Accept 

K076 

KOftc76 

.426801 

2.150000 

Accept 

AdvrToSales 

LBADV7576 

.485562 

2.150000 

Accept 

AdvrToSales 

LBADV75 

.764479 

2.150000 

Accept 

AdvrToSales 

LBADV76 

.586210 

2.150000 

Accept 

KOftc7576 

LBADV7576 

.665568 

2.650000 

Accept 

KO£tc75 

LBADV75 

.985397 

2.650000 

Accept 

KOftc76 

LBADV76 

.375198 

2.650000 

Accept 

LBOPI  *  f(I,Disp,KO,Advr,GROW}  Case  Omitted 

K07576 

KOftc7576 

.109208 

2.150000 

Accept 

K075 

KOftc7S 

.292796 

2.150000 

Accept 

K076 

KOftc76 

.059537 

2.150000 

Accept 

AdvrToSales 

LBADV7576 

.003591 

2.150000 

Accept 

AdvrToSales 

LBADV75 

.027854 

2.150000 

Accept 

AdvrToSales 

LBADV76 

.002056 

2.150000 

Accept 

KOftc7576 

LBADV7576 

.021808 

2.650000 

Accept 

KOftc75 

LBADV75 

.077599 

2.650000 

Accept 

KOftc76 

LBADV76 

.044370 

2.650000 

Accept 

5)  CPCM  s  f(I,Disp,KO,Advr,GROW)  Standard  vs  Omitted 


K07576 

AdvrToSales 

.004656 

2.600000 

Accept 

K075 

AdvrToSales 

.162043 

2.600000 

Accept 

K076 

AdvrToSales 

.017097 

2.600000 

Accept 

KOftc7576 

AdvrToSales 

.456769 

2.600000 

Accept 

KOftc75 

AdvrToSales 

.741632 

2.600000 

Accept 

KOftc76 

AdvrToSales 

.103702 

2.600000 

Accept 

K07576 

LBADV7576 

.008244 

2.600000 

Accept 

KOftc7576 

LBADV7576 

.679918 

2.600000 

Accept 

KOftc75 

LBADV75 

.893070 

2.600000 

Accept 

KOftc76 

LBADV76 

.292579 

2.600000 

Accept 

LBOPI  •  f(l,Disp,KO,Advr,GROW) 
K07576  AdvrToSales 

Standard  vs  Omitted 
.689570  2.600000 

Accept 

K075 

AdvrToSales 

.624491 

2.600000 

Accept 

K076 

AdvrToSales 

.633964 

2.600000 

Accept 

KOftc7576 

AdvrToSales 

.790770 

2.600000 

Accept 

KOftc75 

AdvrToSales 

.778565 

2.600000 

Accept 

KOftc76 

AdvrToSales 

.666878 

2.600000 

Accept 

K07576 

LBADV7576 

.511808 

2.600000 

Accept 

K075 

LBADV75 

2.130919 

2.600000 

Accept 

K076 

LBADV76 

.511361 

2.600000 

Accept 

KOftc7576 

LBADV7576 

547611 

2.600000 

Accept 

KOftc75 

LBADV75 

.522445 

2.600000 

Accept 

KOftc76 

LBAOV76 

.476740 

2.600000 

Accept 

CPCM  =  f(l,Disp,KO,Advr,GROW,MCDR) 
K07576  KOftc7576  1.593028 

3.020000 

Accept 

K075 

KOftc75 

1.996578 

3.020000 

Accept 

K076 

KOftc76 

1.008425 

3.020000 

Accept 

AdvrToSales 

LBADV7576 

.324268 

3.020000 

Accept 

AdvrToSales 

LBAOV75 

.233303 

3.020000 

Accept 

AdvrToSales 

LBADV76 

.281167 

3.020000 

Accept 

KOftc7576 

LBADV7576 

.655729 

2.650000 

Accept 

KOftc75 

LBADV75 

.771597 

2.650000 

Accept 

KOftc76 

LBADV76 

.428305 

2.650000 

Accept 

LBOPI  =  f(l,Disp,KO,Advr,GROW,MCDR) 
K07576  KOftc7576  .038063 

3.040000 

Accept 

K075 

KOftc75 

.078662 

3.040000 

Accept 

K076 

KOftc76 

.039147 

3.040000 

Accept 

AdvrToSales 

LBADV7576 

.164415 

3.040000 

Accept 

AdvrToSales 

LBADV7S 

.145609 

3.040000 

Accept 

AdvrToSales 

LBADV76 

.215712 

3.040000 

Accept 

KOftc7576 

LBADV7576 

.150388 

2.650000 

Accept 

KOftc75 

LBADV75 

.066544 

2.650000 

Accept 

KOftc76 

LBADV76 

.299719 

2.650000 

Accept 

Entry 

9) 


CPCM  «  f(I,Disp,KO,Advr,GROW,MCDR)  Case  Omitted 
K07576  KOftc7576  .322270  3. 04000* 

K076  KOftc76  .345727  3.04000* 

K076  KOftc76  .221461  3.04000* 

AdvrToSales  LBADV7576  .346571  3.04000* 

AdvrToSales  LBADV75  .694973  3.04000* 

AdvrToSales  LBADV76  .378092  3.04000* 

K07576  LBAD7576  .443587  2.65000( 

K075  LBADV75  .518952  2.65000( 

K076  LBADV76  .449138  2.65000( 


K07576 

K075 

K076 

AdvrToSales 

AdvrToSales 

AdvrToSales 

KOftc7576 

KOftc75 

KOftc76 


11)  CPCM  =  F<I.I 
K07576 
K075 
K076 
KOftc7576 
KOftc75 
KOftc76 
K07576 
K075 
K076 

KOftc7576 

KOftc75 

KOftc76 


K07576 

K075 

K076 

KOftc7576 

KOftc75 

KOftc76 

K07576 

K075 

K076 


KOftc7576 

.322270 

3.040000 

Accept 

KOftc75 

.345727 

3.040000 

Accept 

KOftc76 

.221461 

3.040000 

Accept 

LBADV7576 

.346571 

3.040000 

Accept 

LBADV75 

.694973 

3.040000 

Accept 

LBADV76 

.378092 

3.040000 

Accept 

LBAD7576 

.443587 

2.650000 

Accept 

LBADV75 

.518952 

2.650000 

Accept 

LBADV76 

.449138 

2.650000 

Accept 

i,KO,Advr,GROW,MCDR)  Case  Omitted 

KOftc7576 

.010903 

3.040000 

Accept 

KOftc75 

.064597 

3.040000 

Accept 

KOftc76 

.012121 

3.040000 

Accept 

LBADV7576 

.033829 

3.040000 

Accept 

LBADV75 

.053947 

3.040000 

Accept 

LBAOV76 

.018470 

3.040000 

Accept 

LBADV7576 

.052708 

2.650000 

Accept 

LBADV75 

.050887 

2.650000 

Accept 

LBADV76 

.101456 

2.650000 

Accept 

i,KO,Advr,GROW,MCDR) 

Standard  vs  Omitted 

AdvrToSales 

.008512 

2.650000 

Accept 

AdvrToSales 

.226016 

2.650000 

Accept 

AdvrToSales 

.004026 

2.650000 

Accept 

AdvrToSales 

.639885 

2.650000 

Accept 

AdvrToSales 

.835537 

2.650000 

Accept 

AdvrToSales 

.371221 

2.650000 

Accept 

LBADV7576 

.008702 

2.650000 

Accept 

LBADV75 

.901034 

2.650000 

Accept 

LBAOV76 

.016246 

2.650000 

Accept 

LBADV7576 

.944712 

2.650000 

Accept 

LBADV75 

1.049174 

2.650000 

Accept 

LBADV76 

.738940 

2.650000 

Accept 

,KO,Advr,GROW,MCDR)  Standard  vs  Omitted 

AdvrToSales 

.905707 

2.650000 

Accept 

AdvrToSales 

.822496 

2.650000 

Accept 

AdvrToSales 

.849722 

2.650000 

Accept 

AdvrToSales 

.958071 

2.650000 

Accept 

AdvrToSales 

.890220 

2.650000 

Accept 

AdvrToSales 

.877450 

2.650000 

Accept 

LBADV7576 

.542851 

2.650000 

Accept 

LBADV75 

2.074140 

2.650000 

Accept 

LBADV76 

.295820 

2.650000 

Accept 

G-3 


12)  LBOPl  >  f(I,Disp,KO,Advr,GROW,MCDR)  Standard  vs  Omitted  con't 


KOftc7576 

LBADV7576 

.565335 

2.650000 

Accept 

KOftc75 

LBADV75 

.544402 

2.650000 

Accept 

KOftc76 

LBAOV76 

.503750 

2.650000 

Accept 

Entry 

13) 

CPCM  «  f(I,Disp,KO,Advr,GROW,CAR) 

K07576 

KOftc7576 

2.457033 

3.040000 

Accept 

K075 

KOftc75 

3.822440 

3.040000 

Reject 

K076 

KOftc76 

1.321996 

3.040000 

Accept 

AdvrToSales 

LBADV7576 

.226115 

3.040000 

Accept 

AdvrToSales 

LBADV75 

.195917 

3.040000 

Accept 

AdvrToSales 

LBAOV76 

.200878 

3.040000 

Accept 

KOftc7576 

LBADV7576 

.900350 

2.650000 

Accept 

KOftc75 

LBADV75 

1.696668 

2.650000 

Accept 

KOftc76 

LBADV76 

.308285 

2.650000 

Accept 

14) 

LBOPl  >  f(I,Disp.KO,Advr,GROW,CAR) 

K07576 

KOftc7576 

.389720 

3.040000 

Accept 

K075 

KOftc75 

.575171 

3.040000 

Accept 

K076 

KOftc76 

.290581 

3.040000 

Accept 

AdvrToSales 

LBADV7576 

.254163 

3.040000 

Accept 

AdvrToSales 

LBADV7S 

.197006 

3.040000 

Accept 

AdvrToSales 

LBAOV76 

.353469 

3.040000 

Accept 

KOftc7576 

LBADV7576 

.298018 

2.650000 

Accept 

KOftc75 

LBADV75 

.265708 

2.650000 

Accept 

KOftc76 

LBADV76 

.346037 

2.650000 

Accept 

15) 

CPCM  -  f(l.Disp,KO,Advr,GROW,CAR)  Case  Omitted 

K07576 

KOftc7576 

.734160 

3.040000 

Accept 

K075 

KOftc75 

1.260528 

3.040000 

Accept 

K076 

KOftc76 

1.912682 

3.040000 

Accept 

AdvrToSales 

LBADV7576 

.153867 

3.040000 

Accept 

AdvrToSales 

LBADV75 

.142779 

3.040000 

Accept 

AdvrToSales 

LBADV76 

.210117 

3.040000 

Accept 

KOftc7576 

LBADV7576 

.467965 

2.650000 

Accept 

KOftc75 

LBADV75 

.811173 

2.650000 

Accept 

KOftc76 

LBADV76 

.683030 

2.650000 

Accept 

16) 

LBOPl  *  f(I,Disp,KO,Advr,GROW,CAR)  Case  Omitted 

K07576 

KOftc7576 

.282374 

3.040000 

Accept 

K075 

KOftc75 

.476277 

3.040000 

Accept 

K076 

KOftc76 

.182799 

3.040000 

Accept 

AdvrToSales 

LBADV7576 

.006853 

3.040000 

Accept 

AdvrToSales 

LBADV75 

.007528 

3.040000 

Accept 

AdvrToSales 

LBADV76 

.030881 

3.040000 

Accept 

16) 


Entry 

17) 


18) 


19) 


LBOPI  ■  f(l,Disp,KO,Advr,GROW,CAR)  Case  Omitted  con't 


KOftc7576 

LBADV7576 

.112940 

2.650000 

Accept 

KOftc75 

LBADV75 

.177652 

2.650000 

Accept 

KOftc76 

LBADV76 

.054377 

2.650000 

Accept 

CPCM  s  f(l,Disp,KO,Advr,GROW,CAR)  Standard  vs  Omitted 

K07576 

AdvrToSales 

.021885 

2.650000 

Accept 

K075 

AdvrToSales 

.033472 

2.650000 

Accept 

K076 

AdvrToSales 

.215939 

2.650000 

Accept 

K0ftc7575 

AdvrToSales 

.755141 

2.650000 

Accept 

KOftc75 

AdvrToSales 

1.251736 

2.650000 

Accept 

KOftc76 

AdvrToSales 

.191365 

2.650000 

Accept 

K07576 

LBADV7576 

.028282 

2.650000 

Accept 

K076 

LBAOV76 

.178723 

2.650000 

Accept 

KOftc7576 

LBADV7576 

.915439 

2.650000 

Accept 

K0ftc75 

LBADV75 

1.273066 

2.650000 

Accept 

KOftc76 

LBADV76 

.384787 

2.650000 

Accept 

LBOPI  «  f(l,Disp,KO,Advr,GROW,CAR)  Standard  vs  Omitted 

K07576 

AdvrToSales 

.008123 

2.650000 

Accept 

K075 

AdvrToSales 

.013499 

2.650000 

Accept 

K076 

AdvrToSales 

.092443 

2.650000 

Accept 

KOftc7576 

AdvrToSales 

.206461 

2.650000 

Accept 

KOftc75 

AdvrToSales 

.262403 

2.650000 

Accept 

KOftc76 

AdvrToSales 

.071747 

2.650000 

Accept 

K07576 

LBADV7576 

.014183 

2.650000 

Accept 

K075 

LBADV75 

.978618 

2.650000 

Accept 

K076 

LBADV76 

.108945 

2.650000 

Accept 

K0ftc7576 

LBADV7576 

.306581 

2.650000 

Accept 

K0ftc75 

LBADV75 

.297388 

2.650000 

Accept 

KOftc76 

LBADV76 

.174032 

2.650000 

Accept 

CPCM  «  f(I,Di5p,K0,Advr,GR0W,LBRD) 

K07576 

KOftc7576 

1.942705 

3.040000 

Accept 

K075 

KOftc75 

3.361706 

3.040000 

Reject 

K076 

KOftc76 

.778925 

3.040000 

Accept 

AdvrToSales 

LBADV7576 

.326012 

3.040000 

Accept 

AdvrToSales 

LBADV75 

.274590 

3.040000 

Accept 

AdvrToSales 

LBADV76 

.290601 

3.040000 

Accept 

KOftc7576 

LBADV7576 

.725706 

2.650000 

Accept 

KOftc75 

LBADV75 

1.520958 

2.650000 

Accept 

KOftc75 

LBADV76 

.193050 

2.650000 

Accept 

LBOPI  «  f(l,Disp.KO.Advr.GROW,LBRD) 

K07576 

KOftc7576 

.143221 

3.040000 

Accept 

K075 

KOftc75 

.406417 

3.040000 

Accept 

K076 

KOftc76 

.107929 

3.040000 

Accept 

6-5 


20)  LBOPI  -  f(l,Di5p,KO,Advr,GROW,LBRD)  con’t 


AdvrToSales 

LBADV7576 

.009891 

3.040000 

Accept 

AdvrToSales 

LBADV75 

.033021 

3.040000 

Accept 

AdvrToSales 

LBADV76 

.328775 

3.040000 

Accept 

KOftc7576 

LBADV7576 

.028367 

2.650000 

Accept 

KOftc75 

LBADV75 

.139323 

2.650000 

Accept 

KOftc76 

LBADV76 

.366836 

2.650000 

Accept 

Entry 

21)  CPCM  >  f(I,Disp.KO,Advr.GROW,LBRD)  Case  Omitted 

K07576 

KOftc7576 

.782766 

3.040000 

Accept 

K075 

KOftc75 

1.294579 

3.040000 

Accept 

K076 

KOftc76 

.814752 

3.040000 

Accept 

AdvrToSales 

LBADV7576 

.384125 

3.040000 

Accept 

AdvrToSales 

LBADV75 

.333887 

3.040000 

Accept 

AdvrToSales 

LBADV76 

.384737 

3.040000 

Accept 

KOftc7S76 

LBADV7576 

.419571 

2.650000 

Accept 

KOftc75 

LBADV75 

.699094 

2.650000 

Accept 

KOftc76 

LBADV76 

.209966 

2.650000 

Accept 

22)  LBOPI  »  f(I.Disp,KO.Advr.GROW.LBRD)  Case  Omitted 

K07576 

KOftc7576 

.372462 

3.040000 

Accept 

K075 

KOftc75 

.742042 

3.040000 

Accept 

K076 

KOftc76 

.042050 

3.040000 

Accept 

AdvrToSales 

LBADV7576 

.008294 

3.040000 

Accept 

AdvrToSales 

LBADV75 

.028329 

3.040000 

Accept 

AdvrToSales 

LBADV76 

.000164 

3.040000 

Accept 

KOftc7576 

LBADV7576 

.115353 

2.650000 

Accept 

KOftc75 

LBADV75 

.028256 

2.650000 

Accept 

KOftc76 

LBADV76 

.023137 

2.650000 

Accept 

23)  CPCM  »  f(l,Disp,KO,Advr,GROW,LBRD)  Standard  vs  Omitted 

K07576 

AdvrToSales 

.007100 

2.650000 

Accept 

K075 

AdvrToSales 

.007855 

2.650000 

Accept 

K076 

AdvrToSales 

.017129 

2.650000 

Accept 

KOftc7576 

AdvrToSales 

.358655 

2.650000 

Accept 

KOftc75 

AdvrToSales 

.681288 

2.650000 

Accept 

KOftc76 

AdvrToSales 

.017080 

2.650000 

Accept 

K07576 

LBADV7576 

.014335 

2.650000 

Accept 

K075 

LBADV75 

1.598835 

2.650000 

Accept 

K076 

LBADV76 

.024236 

2.650000 

Accept 

KOftc7576 

LBADV7576 

.578937 

2.650000 

Accept 

KOftc75 

LBADV75 

821268 

2.650000 

Accept 

KOftc76 

LBADV76 

.024458 

2.650000 

Accept 

24)  LBOPI  -  f(I,Disp,KO,Advr,GROW,LBRD)  Standard  vs  Omitted 


K07576 

AdvrToSales 

.011544 

2.650000 

Accept 

K07S 

AdvrToSales 

.009158 

2.650000 

Accept 

K076 

AdvrToSales 

.744029 

2.6S0000 

Accept 

KOftc7576 

AdvrToSales 

.020818 

2.650000 

Accept 

KOftc75 

AdvrToSales 

.021325 

2.650000 

Accept 

KOftc76 

AdvrToSales 

.778682 

2.650000 

Accept 

K07576 

LBADV7576 

.012593 

2.650000 

Accept 

K075 

LBADV75 

1.425521 

2.650000 

Accept 

K076 

LBADV76 

.634322 

2.650000 

Accept 

KOftc7576 

LBADV7576 

.015465 

2.650000 

Accept 

KOftc75 

LBADV75 

.139118 

2.650000 

Accept 

KOftc76 

LBADV76 

.551939 

2.650000 

Accept 
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